소스 검색

org-element: Tiny refactoring

* lisp/org-element.el (org-element-map): Reduce consing and improve
  readability at the price of a tiny code duplication.
Nicolas Goaziou 10 년 전
부모
커밋
96b02fa9a6
1개의 변경된 파일6개의 추가작업 그리고 6개의 파일을 삭제
  1. 6 6
      lisp/org-element.el

+ 6 - 6
lisp/org-element.el

@@ -4038,12 +4038,12 @@ looking into captions:
 		      (cond
 		       ((not value))
 		       ((member kwd org-element-dual-keywords)
-			(dolist
-			    (line (if (member kwd org-element-multiple-keywords)
-				      (reverse value)
-				    (list value)))
-			  (funcall --walk-tree (cdr line))
-			  (funcall --walk-tree (car line))))
+			(if (member kwd org-element-multiple-keywords)
+			    (dolist (line (reverse value))
+			      (funcall --walk-tree (cdr line))
+			      (funcall --walk-tree (car line)))
+			  (funcall --walk-tree (cdr value))
+			  (funcall --walk-tree (car value))))
 		       ((member kwd org-element-multiple-keywords)
 			(mapc --walk-tree (reverse value)))
 		       (t (funcall --walk-tree value))))))