emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix #3685: don't mutate org buffer when tangling

Browse source 
If the buffer doesn't change, the cursor won't move.
This commit is contained in:
Henrik Lissner 2020-08-04 13:43:14 -04:00
parent 9f84bc334b
commit 8580b53e8e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
modules/config/literate/autoload.el
View file

@ -16,8 +16,7 @@ byte-compiled from.")
(print-group!
(let* ((default-directory doom-private-dir)
(org (expand-file-name +literate-config-file))
(dest (concat (file-name-sans-extension +literate-config-file) ".el"))
(backup (make-temp-file "config.org.backup")))
(dest (concat (file-name-sans-extension +literate-config-file) ".el")))
(and (require 'ox)
(require 'ob-tangle)
(unwind-protect
@ -26,18 +25,18 @@ byte-compiled from.")
(print! (info "%s") (apply #'format msg args))))
;; Prevent infinite recursion due to recompile-on-save
;; hooks later.
(org-mode-hook nil))
;; Do the ol' switcheroo because `org-babel-tangle' writes
;; changes to the user's literate config, which would impose on
;; the user.
(org-mode-hook nil)
;; Operate on a copy because `org-babel-tangle' has
;; side-effects we don't want to impose on the User's
;; config permanently.
(backup (make-temp-file (concat (file-name-nondirectory org) "."))))
(copy-file org backup t)
(with-current-buffer (find-file-noselect org)
;; Tangling won't ordinarily expand #+INCLUDE directives, so
;; we do it ourselves.
(with-current-buffer (find-file-noselect backup)
;; Tangling won't ordinarily expand #+INCLUDE directives
(org-export-expand-include-keyword)
(org-babel-tangle nil dest))
(org-babel-tangle nil dest)
(kill-buffer (current-buffer)))
t)
(ignore-errors (copy-file backup org t))
(ignore-errors (delete-file backup)))
;; Write an empty file to serve as our mtime cache
(with-temp-file +literate-config-cache-file)))))