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>
This commit is contained in:
Nicolas Goaziou 2015-09-10 17:55:26 +02:00
parent bde1ebc20a
commit bc322fc57d
1 changed files with 3 additions and 2 deletions

View File

@ -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.