summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-09-10 17:55:26 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-09-10 17:55:26 +0200
commitbc322fc57d1f7643015d496502ae74f40580f328 (patch)
tree79fa2685d31049874fd65717eed7713feb1fe889
parentbde1ebc20ae5c3633d2f405117f7ee67566b5a5f (diff)
downloadorg-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.el5
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.