org-html-format-latex: Prevent side effects of copying `buffer-file-name'

* lisp/ox-html.el (org-html-format-latex): Unset `buffer-file-name'
after we are done with transcoding LaTeX.

Reported-by: Rudolf Adamkovič <salutis@me.com>
Link: https://list.orgmode.org/m2k05c579o.fsf@me.com/T/#m949ed054f0f219e2742697c4c4f49fbe07909f5a
This commit is contained in:
Ihor Radchenko 2022-10-07 18:06:19 +08:00
parent 17708ab3fa
commit 86b6d843f6
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 2 deletions

View File

@ -2887,13 +2887,15 @@ INFO is a plist containing export properties."
(insert latex-frag) (insert latex-frag)
(org-format-latex cache-relpath nil nil cache-dir nil (org-format-latex cache-relpath nil nil cache-dir nil
"Creating LaTeX Image..." nil processing-type) "Creating LaTeX Image..." nil processing-type)
;; Present save dialogue to be shown for this buffer. We need ;; Present save dialogue to be shown for this buffer and prevent
;; to explicitly disable the dialogue because ;; Emacs to jump into this buffer when opening
;; `buffer-file-name' file. We need this because
;; `org-export-copy-buffer' copies `buffer-file-name' local ;; `org-export-copy-buffer' copies `buffer-file-name' local
;; variable thus making Emacs think that the buffer copy is ;; variable thus making Emacs think that the buffer copy is
;; associated with file. Note that despite `buffer-file-name', ;; associated with file. Note that despite `buffer-file-name',
;; `org-export-copy-buffer' arranges saving to not perform ;; `org-export-copy-buffer' arranges saving to not perform
;; actual writing onto the disk. ;; actual writing onto the disk.
(setq buffer-file-name nil)
(restore-buffer-modified-p nil) (restore-buffer-modified-p nil)
(buffer-string)))) (buffer-string))))