summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-04-09 16:35:44 (GMT)
committer Eric Schulte <schulte.eric@gmail.com>2013-04-09 16:35:50 (GMT)
commit6c11a0664e9684733d0d51bd86bcd5ab534c1268 (patch)
treebb4e0993b7c4f2dd80d6e6f5526815ad794350b7
parent4b139ec4c843bb5d35cb7fd48a11294db9e7c37a (diff)
downloadorg-mode-6c11a0664e9684733d0d51bd86bcd5ab534c1268.zip
org-mode-6c11a0664e9684733d0d51bd86bcd5ab534c1268.tar.gz
more restrictive elisp eval of header arguments
* lisp/ob-core.el (org-babel-read): More restrictive elisp eval of header arguments.
-rw-r--r--lisp/ob-core.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 8994b81..7459b0e 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2514,9 +2514,8 @@ appropriate."
(if (and (stringp cell) (not (equal cell "")))
(or (org-babel-number-p cell)
(if (and (not inhibit-lisp-eval)
- (member (substring cell 0 1) '("(" "'" "`" "[" "*"))
- (or (not (equal (substring cell 0 1) "*"))
- (equal (substring cell (- (length cell) 1)) "*")))
+ (or (member (substring cell 0 1) '("(" "'" "`" "["))
+ (string= cell "*this*")))
(eval (read cell))
(if (string= (substring cell 0 1) "\"")
(read cell)