浏览代码

Merge branch 'maint'

Nicolas Goaziou 9 年之前
父节点
当前提交
8c85c99052
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. 3 2
      lisp/org-element.el

+ 3 - 2
lisp/org-element.el

@@ -3849,8 +3849,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.