[elpa] externals-release/org ec63072247 2/2: org--image-yank-media-handler: Suppress coding system auto-detection

[ELPA Syncer]

branch: externals-release/org
commit ec63072247ffd44d967b28ecd9336be52f21754a
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org--image-yank-media-handler: Suppress coding system auto-detection
    
    * lisp/org.el (org--image-yank-media-handler): Prevent Emacs from
    trying to detect coding system for image data (and sometimes asking
    user interactively).
    
    Reported-by: Daan Ro <daanturo@gmail.com>
    Link: 
https://orgmode.org/list/11A5BD1B-98F2-4B53-A61C-A93A367EB321@getmailspring.com
---
 lisp/org.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 8ca9a4b716..5c6e0967a9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20818,8 +20818,11 @@ end."
     (when (and (not (eq org-yank-image-save-method 'attach))
                (not (file-directory-p org-yank-image-save-method)))
       (make-directory org-yank-image-save-method t))
-    (with-temp-file absname
-      (insert data))
+    ;; DATA is a raw image.  Tell Emacs to write it raw, without
+    ;; trying to auto-detect the coding system.
+    (let ((coding-system-for-write 'emacs-internal))
+      (with-temp-file absname
+        (insert data)))
     (if (null (eq org-yank-image-save-method 'attach))
         (setq link (org-link-make-string (concat "file:" (file-relative-name 
absname))))
       (require 'org-attach)