tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* org.el (org-run-like-in-org-mode): Use let instead of progv.
This commit is contained in:
Christopher Schmidt 2013-02-13 10:04:37 +01:00
parent ea2d1076bb
commit d6f69f58aa
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org.el
View file

@ -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