From d7a55bbd537314d2776b082bd92a1a08b3edc84e Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Wed, 28 Sep 2022 12:07:14 +0800 Subject: [PATCH] org-latex-export-to-latex: Do not suppress major modes in babel * lisp/ox.el (org-export-to-file): Suppress loading major mode in the exported text explicitly instead of doing it across the whole export process. This way, babel evaluation will not suffer from unexpected behavior when no major modes are being loaded. Reported-by: Asilata Bapat Link: https://list.orgmode.org/orgmode/87fsk5955a.fsf@gmail.com/ --- lisp/ox.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index cf5072218..42204ffde 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -6586,8 +6586,7 @@ or FILE." (declare (indent 2)) (if (not (file-writable-p file)) (error "Output file not writable") (let ((ext-plist (org-combine-plists `(:output-file ,file) ext-plist)) - (encoding (or org-export-coding-system buffer-file-coding-system)) - auto-mode-alist) + (encoding (or org-export-coding-system buffer-file-coding-system))) (if async (org-export-async-start (lambda (file) @@ -6599,14 +6598,14 @@ or FILE." (with-temp-buffer (insert output) (let ((coding-system-for-write ',encoding)) - (write-file ,file))) + (write-region (point-min) (point-max) ,file))) (or (ignore-errors (funcall ',post-process ,file)) ,file))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (with-temp-buffer (insert output) (let ((coding-system-for-write encoding)) - (write-file file))) + (write-region (point-min) (point-max) file))) (when (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (org-kill-new output)) ;; Get proper return value.