Browse Source

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.
Dan Davison 15 years ago
parent
commit
351f52192d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      contrib/babel/lisp/org-babel.el

+ 2 - 1
contrib/babel/lisp/org-babel.el

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