浏览代码

org-persist-write:elisp: Do not use `buffer-local-boundp'

* lisp/org-persist.el (org-persist-write:elisp): Use manual
implementation of `buffer-local-boundp' to make things work in Emacs
<28.

Reported in https://list.orgmode.org/87k0dyqy3d.fsf@kyleam.com/T/#u
Ihor Radchenko 3 年之前
父节点
当前提交
0cb0760206
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      lisp/org-persist.el

+ 5 - 2
lisp/org-persist.el

@@ -614,8 +614,11 @@ COLLECTION is the plist holding data collectin."
   (if (and (plist-get (plist-get collection :associated) :file)
            (get-file-buffer (plist-get (plist-get collection :associated) :file)))
       (let ((buf (get-file-buffer (plist-get (plist-get collection :associated) :file))))
-        (when (buffer-local-boundp (cadr container) buf)
-          (buffer-local-value (cadr container) buf)))
+        ;; FIXME: There is `buffer-local-boundp' introduced in Emacs 28.
+        ;; Not using it yet to keep backward compatibility.
+        (condition-case nil
+            (buffer-local-value (cadr container) buf)
+          (void-variable nil)))
     (when (boundp (cadr container))
       (symbol-value (cadr container)))))