From 04a1b98e5e064790e300d995929c0d3c4b2028d3 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 8 Jun 2013 15:13:38 -0600 Subject: [PATCH] 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. --- lisp/ob-core.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 74796e5b7..a678ce8e1 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2532,14 +2532,14 @@ block but are passed literally to the \"example-block\"." (defun org-babel-read (cell &optional inhibit-lisp-eval) "Convert the string value of CELL to a number if appropriate. 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 NO-LISP-EVAL inhibits lisp evaluation for situations in which is it not appropriate." (if (and (stringp cell) (not (equal cell ""))) (or (org-babel-number-p cell) (if (and (not inhibit-lisp-eval) - (or (member (substring cell 0 1) '("(" "'" "`" "[" "#")) + (or (member (substring cell 0 1) '("(" "'" "`" "[")) (string= cell "*this*"))) (eval (read cell)) (if (string= (substring cell 0 1) "\"")