Browse Source

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 years ago
parent
commit
96b02fa9a6
1 changed files with 6 additions and 6 deletions
  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))))))