diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-04-09 10:35:44 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-04-09 10:35:50 -0600 |
commit | 6c11a0664e9684733d0d51bd86bcd5ab534c1268 (patch) | |
tree | bb4e0993b7c4f2dd80d6e6f5526815ad794350b7 | |
parent | 4b139ec4c843bb5d35cb7fd48a11294db9e7c37a (diff) | |
download | 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.el | 5 |
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) |