diff --git a/etc/refcards/orgcard.tex b/etc/refcards/orgcard.tex index b924aed8df5..b112e957d1d 100644 --- 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 993e021f82e..d5a434e805d 100644 --- 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)) (provide 'org-version) diff --git a/lisp/org/org.el b/lisp/org/org.el index 8ca9a4b716b..0b3566121d9 100644 --- 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. ;; @@ -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)