[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org fefb867 1/3: org-persist-write-all: Fix when BUFFER
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org fefb867 1/3: org-persist-write-all: Fix when BUFFER is nil |
Date: |
Wed, 17 Nov 2021 07:57:23 -0500 (EST) |
branch: externals/org
commit fefb867d913e697b410a67aad6a25f1dc55aeeca
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-persist-write-all: Fix when BUFFER is nil
---
lisp/org-persist.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index e97648b..f06d4fc 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -218,7 +218,9 @@ When BUFFER is `all', unregister VAR in all buffers."
(not buffer))
(and (plist-get index :path)
(get-file-buffer (plist-get index :path))
- (equal (buffer-file-name buffer)
+ (equal (buffer-file-name
+ (or buffer
+ (get-file-buffer (plist-get index :path))))
(plist-get index :path))))
(org-persist-write (plist-get index :variable)
(when (plist-get index :path)