浏览代码

org-element: Fix `org-element-map' when type looked after is plain text

* contrib/lisp/org-element.el (org-element-map): Fix `org-element-map'
  when type looked after is plain text.
Nicolas Goaziou 13 年之前
父节点
当前提交
cf8d979d8c
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      contrib/lisp/org-element.el

+ 2 - 1
contrib/lisp/org-element.el

@@ -3341,7 +3341,8 @@ Nil values returned from FUN do not appear in the results."
 	  (catch 'found
 	  (catch 'found
 	    (let ((category 'greater-elements))
 	    (let ((category 'greater-elements))
 	      (mapc (lambda (type)
 	      (mapc (lambda (type)
-		      (cond ((memq type org-element-all-objects)
+		      (cond ((or (memq type org-element-all-objects)
+				 (eq type 'plain-text))
 			     ;; If one object is found, the function
 			     ;; If one object is found, the function
 			     ;; has to recurse into every object.
 			     ;; has to recurse into every object.
 			     (throw 'found 'objects))
 			     (throw 'found 'objects))