ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

do not read #-prefix header-arg value as emacs lisp 

* lisp/ob-core.el (org-babel-read): Do not read #-prefix header-arg
  value as emacs lisp.
This commit is contained in:
Eric Schulte 2013-06-08 15:13:38 -06:00
parent e23bd6df8a
commit 04a1b98e5e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ob-core.el
View File

@ -2532,14 +2532,14 @@ block but are passed literally to the \"example-block\"."
(defun org-babel-read (cell &optional inhibit-lisp-eval) (defun org-babel-read (cell &optional inhibit-lisp-eval)
"Convert the string value of CELL to a number if appropriate. "Convert the string value of CELL to a number if appropriate.
Otherwise if cell looks like lisp (meaning it starts with a Otherwise if cell looks like lisp (meaning it starts with a
\"(\", \"'\", \"`\" \"#\" or a \"[\") then read it as lisp, \"(\", \"'\", \"`\" or a \"[\") then read it as lisp,
otherwise return it unmodified as a string. Optional argument otherwise return it unmodified as a string. Optional argument
NO-LISP-EVAL inhibits lisp evaluation for situations in which is NO-LISP-EVAL inhibits lisp evaluation for situations in which is
it not appropriate." it not appropriate."
(if (and (stringp cell) (not (equal cell ""))) (if (and (stringp cell) (not (equal cell "")))
(or (org-babel-number-p cell) (or (org-babel-number-p cell)
(if (and (not inhibit-lisp-eval) (if (and (not inhibit-lisp-eval)
(or (member (substring cell 0 1) '("(" "'" "`" "[" "#")) (or (member (substring cell 0 1) '("(" "'" "`" "["))
(string= cell "*this*"))) (string= cell "*this*")))
(eval (read cell)) (eval (read cell))
(if (string= (substring cell 0 1) "\"") (if (string= (substring cell 0 1) "\"")