[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org e0b1a05: org-persist-unregister: Fix when BUFFER is
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org e0b1a05: org-persist-unregister: Fix when BUFFER is not 'all |
Date: |
Tue, 21 Dec 2021 21:57:24 -0500 (EST) |
branch: externals/org
commit e0b1a05460f0136b3d3757c3ae74199efbd9b292
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-persist-unregister: Fix when BUFFER is not 'all
* lisp/org-persist.el (org-persist-unregister): Use `string=' instead
of `eq' to compare strings. `eq' always returns nil here.
---
lisp/org-persist.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 43978d8..80bbf7b 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -159,10 +159,10 @@ When BUFFER is `all', unregister VAR in all buffers."
(lambda (plist)
(when (and (memq var (plist-get plist :variable))
(or (eq buffer 'all)
- (eq (buffer-file-name
- (or (buffer-base-buffer buffer)
- buffer))
- (plist-get plist :path))))
+ (string= (buffer-file-name
+ (or (buffer-base-buffer buffer)
+ buffer))
+ (or (plist-get plist :path) ""))))
(if (> (length (plist-get plist :variable)) 1)
(progn
(setq plist
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org e0b1a05: org-persist-unregister: Fix when BUFFER is not 'all,
ELPA Syncer <=