diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-05-05 09:08:13 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-05-05 09:08:13 +0200 |
commit | d752029422ab506321a301577c84c23ea958e7a6 (patch) | |
tree | 9250f018a36842f4e0cf47e1c2949180f16c2624 | |
parent | cd0446243861487096983f09e545105551af7f10 (diff) | |
download | org-mode-d752029422ab506321a301577c84c23ea958e7a6.tar.gz |
EXPORT: Fix the options parser
* lisp/org-exp.el (org-export-add-options-to-plist): Fix the option parser
This fixes up commit aa6dba8a74016587755c250bb8cc4743a4082ea1.
Instead of looking for the start of a word (which does not work for
the options that are characters), it looks for the beginning of the
line or a whitespace character preceding the option.
-rw-r--r-- | lisp/org-exp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index 2ed989e..5bf1d1b 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -858,7 +858,8 @@ security risks." (let ((op org-export-plist-vars)) (while (setq o (pop op)) (if (and (nth 1 o) - (string-match (concat "\\<" (regexp-quote (nth 1 o)) + (string-match (concat "\\(\\`\\|[ \t]\\)" + (regexp-quote (nth 1 o)) ":\\(([^)\n]+)\\|[^ \t\n\r;,.]*\\)") options)) (setq p (plist-put p (car o) |