Просмотр исходного кода

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.
Eric Schulte 12 лет назад
Родитель
Сommit
bde2348c9e
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      lisp/ob-core.el

+ 3 - 1
lisp/ob-core.el

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