Browse Source

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 12 years ago
parent
commit
04a1b98e5e
1 changed files with 2 additions and 2 deletions
  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) "\"")