read code block values with earmuffs as Emacs Lisp

* lisp/ob-core.el (org-babel-read): Read code block values with earmuffs
  as Emacs Lisp.
This commit is contained in:
Eric Schulte 2013-04-03 08:25:36 -06:00
parent d35ec18ab5
commit bde2348c9e
1 changed files with 3 additions and 1 deletions

View File

@ -2505,7 +2505,9 @@ 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) '("(" "'" "`" "[")))
(member (substring cell 0 1) '("(" "'" "`" "[" "*"))
(or (not (equal (substring cell 0 1) "*"))
(equal (substring cell (- (length cell) 1)) "*")))
(eval (read cell))
(if (string= (substring cell 0 1) "\"")
(read cell)