mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 08:16:27 +00:00
Code Releases Activity

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Browse source
This commit is contained in:
Carsten Dominik 2009-12-30 23:45:57 +01:00
parent ab4e229b11 80d41a9121
commit 0f133f133d
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)))