瀏覽代碼

org.el: Use let instead of progv in org-run-like-in-org-mode

* org.el (org-run-like-in-org-mode): Use let instead of progv.
Christopher Schmidt 12 年之前
父節點
當前提交
d6f69f58aa
共有 1 個文件被更改,包括 4 次插入5 次删除
  1. 4 5
      lisp/org.el

+ 4 - 5
lisp/org.el

@@ -8812,15 +8812,14 @@ call CMD."
   (org-load-modules-maybe)
   (unless org-local-vars
     (setq org-local-vars (org-get-local-variables)))
-  (let (symbols values)
+  (let (binds)
     (dolist (var org-local-vars)
       (when (or (not (boundp (car var)))
 		(eq (symbol-value (car var))
 		    (default-value (car var))))
-        (push (car var) symbols)
-        (push (cadr var) values)))
-    (progv symbols values
-      (call-interactively cmd))))
+	(push (list (car var) `(quote ,(cadr var))) binds)))
+    (eval `(let ,binds
+	     (call-interactively (quote ,cmd))))))
 
 ;;;; Archiving