ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

protecting against spurious spaces in header arguments

This commit is contained in:
Eric Schulte 2009-06-12 13:46:40 -07:00
parent 368cdd2a3e
commit 39a4a85ba1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-babel.el
View File

@ -190,7 +190,7 @@ of the following form. (language body header-arguments-alist)"
(delq nil (delq nil
(mapcar (mapcar
(lambda (arg) (if (string-match "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]*\\([^ \f\t\n\r\v]+.*\\)" arg) (lambda (arg) (if (string-match "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]*\\([^ \f\t\n\r\v]+.*\\)" arg)
(cons (intern (concat ":" (match-string 1 arg))) (match-string 2 arg)))) (cons (intern (concat ":" (match-string 1 arg))) (org-babel-chomp (match-string 2 arg)))))
(split-string (concat " " arg-string) "[ \f\t\n\r\v]+:" t)))) (split-string (concat " " arg-string) "[ \f\t\n\r\v]+:" t))))
(defun org-babel-where-is-src-block-head () (defun org-babel-where-is-src-block-head ()