diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-14 16:41:12 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-14 16:41:12 +0200 |
| commit | 68b960c099d7742e0b1c456d88648f4d5f221e81 (patch) | |
| tree | ba194feacb07a94b002c9db172aa5019e7a254b2 | |
| parent | 8c0db0b9097879414b9ae4e27b6ea570012562b0 (diff) | |
| download | org-mode-68b960c099d7742e0b1c456d88648f4d5f221e81.tar.gz | |
Fix the macro argument parser
* lisp/org-exp.el (org-export-preprocess-apply-macros): Fix the macro
argument parser.
The macro argument parser was swallowing white space after escaped commas.
| -rw-r--r-- | lisp/org-exp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index e2ae476..4925a7c 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2006,7 +2006,7 @@ TYPE must be a string, any of: (intern (concat ":" key))))) (save-match-data (when args - (setq args (org-split-string args ",[ \t\n]*") args2 nil) + (setq args (org-split-string args ",") args2 nil) (setq args (mapcar 'org-trim args)) (while args (while (string-match "\\\\\\'" (car args)) @@ -2015,7 +2015,7 @@ TYPE must be a string, any of: "," (nth 1 args))) (pop args)) (push (pop args) args2)) - (setq args (nreverse args2)) + (setq args (mapcar 'org-trim (nreverse args2))) (setq s 0) (while (string-match "\\$\\([0-9]+\\)" val s) (setq s (1+ (match-beginning 0)) |