diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-09-10 17:55:26 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-09-10 17:55:26 +0200 |
commit | bc322fc57d1f7643015d496502ae74f40580f328 (patch) | |
tree | 79fa2685d31049874fd65717eed7713feb1fe889 | |
parent | bde1ebc20ae5c3633d2f405117f7ee67566b5a5f (diff) | |
download | org-mode-bc322fc57d1f7643015d496502ae74f40580f328.tar.gz |
org-element: Fix short caption parsing
* lisp/org-element.el (org-element--collect-affiliated-keywords): Fix
short caption parsing.
Reported-by: Suvayu Ali <fatkasuvayu+linux@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/101025>
-rw-r--r-- | lisp/org-element.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 3179fae..4b85da1 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3881,8 +3881,9 @@ position of point and CDR is nil." (and dualp (let ((sec (org-match-string-no-properties 2))) (if (or (not sec) (not parsedp)) sec - (org-element--parse-objects - (match-beginning 2) (match-end 2) nil restrict))))) + (save-match-data + (org-element--parse-objects + (match-beginning 2) (match-end 2) nil restrict)))))) ;; Attribute a property name to KWD. (kwd-sym (and kwd (intern (concat ":" (downcase kwd)))))) ;; Now set final shape for VALUE. |