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

Merge branch 'master' of orgmode.org:org-mode

Browse source
This commit is contained in:
Bastien Guerry 2013-02-13 11:11:22 +01:00
parent 83b453dea4 d6f69f58aa
commit 93ed2e1434
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org.el
View file

@ -7399,6 +7399,8 @@ When NO-TODO is non-nil, don't include TODO keywords."
(t (looking-at org-heading-regexp)
(match-string 2)))))
(defvar orgstruct-mode) ; defined below
(defun org-heading-components ()
"Return the components of the current heading.
This is a list with the following elements:
@ -8810,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