tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-persist-write: Do not try to write cache when killing indirect buffer

This commit is contained in:
Ihor Radchenko 2021-10-28 09:11:14 +08:00
parent 91523479fb
commit 5abd149cf1
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/org-persist.el
View File

@ -207,16 +207,16 @@ When BUFFER is `all', unregister VAR in all buffers."
(defun org-persist-write-all (&optional buffer)
"Save all the persistent data."
(dolist (index org-persist--index)
(when (or (not (plist-get index :path))
(and (get-file-buffer (plist-get index :path))
(or (not buffer)
(equal (buffer-file-name (or (buffer-base-buffer buffer)
buffer))
(plist-get index :path)))))
(org-persist-write (plist-get index :variable)
(when (plist-get index :path)
(get-file-buffer (plist-get index :path)))))))
(unless (and buffer (not (buffer-file-name buffer)))
(dolist (index org-persist--index)
(when (or (not (plist-get index :path))
(and (get-file-buffer (plist-get index :path))
(or (not buffer)
(equal (buffer-file-name buffer)
(plist-get index :path)))))
(org-persist-write (plist-get index :variable)
(when (plist-get index :path)
(get-file-buffer (plist-get index :path))))))))
(defun org-persist-write-all-buffer ()
"Call `org-persist-write-all' in current buffer."