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

babel: inheriting properties from higher levels, tracking more properties

This commit is contained in:
Eric Schulte 2009-12-28 16:58:06 -07:00
parent 1951c6202a
commit 80d41a9121
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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