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) "\"")