Преглед изворни кода

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.
Eric Schulte пре 13 година
родитељ
комит
04a1b98e5e
1 измењених фајлова са 2 додато и 2 уклоњено
  1. 2 2
      lisp/ob-core.el

+ 2 - 2
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)
 (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) "\"")