ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Ihor Radchenko 2021-12-21 19:57:53 +08:00
parent be03334a7e
commit e0b1a05460
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-persist.el
View File

@ -159,10 +159,10 @@ When BUFFER is `all', unregister VAR in all buffers."
(lambda (plist) (lambda (plist)
(when (and (memq var (plist-get plist :variable)) (when (and (memq var (plist-get plist :variable))
(or (eq buffer 'all) (or (eq buffer 'all)
(eq (buffer-file-name (string= (buffer-file-name
(or (buffer-base-buffer buffer) (or (buffer-base-buffer buffer)
buffer)) buffer))
(plist-get plist :path)))) (or (plist-get plist :path) ""))))
(if (> (length (plist-get plist :variable)) 1) (if (> (length (plist-get plist :variable)) 1)
(progn (progn
(setq plist (setq plist