浏览代码

org-persist-load:elisp: fix loading

Ihor Radchenko 3 年之前
父节点
当前提交
203420504e
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      lisp/org-persist.el

+ 3 - 3
lisp/org-persist.el

@@ -474,11 +474,11 @@ COLLECTION is the plist holding data collectin."
               load-func-symbol))
      (funcall load-func-symbol container ,reference-data ,collection)))
 
-(defun org-persist-load:elisp (container lisp-value associated)
+(defun org-persist-load:elisp (container lisp-value collection)
   "Load elisp variable container and assign the data to variable symbol."
   (let ((lisp-symbol (cadr container))
-        (buffer (when (plist-get associated :file)
-                  (get-file-buffer (plist-get associated :file)))))
+        (buffer (when (plist-get (plist-get collection :associated) :file)
+                  (get-file-buffer (plist-get (plist-get collection :associated) :file)))))
     (if buffer
         (with-current-buffer buffer
           (make-variable-buffer-local lisp-symbol)