From 283ebcb43ba73d87d1aec292f7418fa7a212582c Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Wed, 24 Feb 2010 15:49:07 -0500 Subject: [PATCH] babel: New const variable org-babel-header-arg-names This is used when checking for babel header args in org properties. --- contrib/babel/lisp/org-babel.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 40ab33bd1..02a8ac577 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -79,6 +79,10 @@ then run `org-babel-pop-to-session'." (add-hook 'org-metadown-hook 'org-babel-pop-to-session-maybe) +(defconst org-babel-header-arg-names + '(cache cmdline colnames dir exports file noweb results session tangle var) + "All header arguments used by org-babel") + (defvar org-babel-default-header-args '((:session . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:noweb . "no")) "Default arguments to use when evaluating a source block.") @@ -507,8 +511,7 @@ may be specified in the properties of the current outline entry." (when val ;; (message "prop %s=%s" header-arg val) ;; debugging (cons (intern (concat ":" header-arg)) val)))) - '("cache" "cmdline" "exports" "file" "noweb" "results" - "session" "tangle" "var"))))) + (mapcar 'symbol-name org-babel-header-arg-names))))) (defun org-babel-parse-src-block-match () (let* ((lang (org-babel-clean-text-properties (match-string 1)))