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

more restrictive elisp eval of header arguments 

* lisp/ob-core.el (org-babel-read): More restrictive elisp eval of
  header arguments.
This commit is contained in:
Eric Schulte 2013-04-09 10:35:44 -06:00
parent 4b139ec4c8
commit 6c11a0664e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ob-core.el
View File

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