mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-babel: extend the way header args are taken from properties 

This change allows org-file-properties to supply header args, and also
allows property inheritance if it has been enabled. Header-args
aquired from the item (or by inheritance) have precedence over those
aquired from org-file-properties.
This commit is contained in:
Dan Davison 2009-10-16 18:17:26 -04:00
parent 8ca34cba0b
commit 351f52192d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/babel/lisp/org-babel.el
View File

@ -360,7 +360,8 @@ may be specified in the properties of the current outline entry."
(delq nil
(mapcar
(lambda (header-arg)
(let ((val (org-entry-get (point) header-arg)))
(let ((val (or (org-entry-get (point) header-arg 'selective)
(cdr (assoc header-arg org-file-properties)))))
(when val
;; (message "param-from-property %s=%s" header-arg val) ;; debugging statement
(cons (intern (concat ":" header-arg)) val))))