ox: Small refactoring

* lisp/ox.el (org-export-prune-tree): Small refactoring.
2015-02-27 11:53:24 +01:00 · 2015-02-27 11:53:24 +01:00 · 5738086a6b
parent 80bbf2440a
commit 5738086a6b
1 changed files with 1 additions and 2 deletions
--- a/lisp/ox.el
+++ b/lisp/ox.el
@ -2057,8 +2057,7 @@ from tree."
 			 (org-element-property :archivedp data))
 		    ;; If headline is archived but tree below has to
 		    ;; be skipped, remove contents.
-		    (mapc #'org-element-extract-element
-			  (org-element-contents data))
+		    (org-element-set-contents data)
 		  ;; Move into secondary string, if any.
 		  (let ((sec-prop
 			 (cdr (assq type org-element-secondary-value-alist))))