From 80d41a91219acaf1759b63ff7abbcaff6dc6bcca Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Mon, 28 Dec 2009 16:58:06 -0700 Subject: [PATCH] babel: inheriting properties from higher levels, tracking more properties --- contrib/babel/lisp/org-babel.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 39b9d4c90..e6dcd28ee 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -497,13 +497,14 @@ may be specified in the properties of the current outline entry." (mapcar (lambda (header-arg) (let ((val (or (condition-case nil - (org-entry-get (point) header-arg 'selective) + (org-entry-get (point) header-arg t) (error nil)) - (cdr (assoc header-arg org-file-properties))))) + (cdr (assoc header-arg org-file-properties))))) (when val - ;; (message "param-from-property %s=%s" header-arg val) ;; debugging statement + ;; (message "prop %s=%s" header-arg val) ;; debugging (cons (intern (concat ":" header-arg)) val)))) - '("exports" "results" "session" "tangle" "var"))))) + '("cache" "cmdline" "exports" "file" "noweb" "results" + "session" "tangle" "var"))))) (defun org-babel-parse-src-block-match () (let* ((lang (org-babel-clean-text-properties (match-string 1)))