Update to Org 9.7.9

(cherry picked from commit 88e1ec22f271b127d961896b7dddcd58df289c42)

diff --git a/etc/refcards/orgcard.tex b/etc/refcards/orgcard.tex
index b924aed8df5de62d08a34a618708eebdddd60ca0..b112e957d1d5437b87ccc74f38cd5d06a48e8142 100644 (file)
--- a/etc/refcards/orgcard.tex
+++ b/etc/refcards/orgcard.tex
@@ -1,5 +1,5 @@
 % Reference Card for Org Mode
-\def\orgversionnumber{9.7.8}
+\def\orgversionnumber{9.7.9}
 \def\versionyear{2024}          % latest update
 \input emacsver.tex
 

diff --git a/lisp/org/org-version.el b/lisp/org/org-version.el
index 993e021f82e5499ab52a0e08bc565d46ff9c0feb..d5a434e805d3f6a7643e3169683d7961bec1f417 100644 (file)
--- a/lisp/org/org-version.el
+++ b/lisp/org/org-version.el
@@ -5,13 +5,13 @@
 (defun org-release ()
   "The release version of Org.
 Inserted by installing Org mode or when a release is made."
-   (let ((org-release "9.7.8"))
+   (let ((org-release "9.7.9"))
      org-release))
 ;;;###autoload
 (defun org-git-version ()
   "The Git version of Org mode.
 Inserted by installing Org or when a release is made."
-   (let ((org-git-version "release_9.7.8-5-gfdf0e0"))
+   (let ((org-git-version "release_9.7.9"))
      org-git-version))
 \f
 (provide 'org-version)

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 69f9d758cb163b60e2b037563b903336f5ababed..2f2412511e9cfecff2841e8e4f172889ceeec5f7 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -9,7 +9,7 @@
 ;; URL: https://orgmode.org
 ;; Package-Requires: ((emacs "26.1"))
 
-;; Version: 9.7.8
+;; Version: 9.7.9
 
 ;; This file is part of GNU Emacs.
 ;;
@@ -20820,8 +20820,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)