瀏覽代碼

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.
Ihor Radchenko 3 年之前
父節點
當前提交
e0b1a05460
共有 1 個文件被更改,包括 4 次插入4 次删除
  1. 4 4
      lisp/org-persist.el

+ 4 - 4
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