branch: externals/org
commit 5abd149cf1e2ae0f6837536de1093ad04ad45f70
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-persist-write: Do not try to write cache when killing indirect buffer
---
lisp/org-persist.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 858f175..47a31e0 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -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."
