Browse Source

ox: Small refactoring

* lisp/ox.el (org-export-prune-tree): Small refactoring.
Nicolas Goaziou 2 years ago
parent
commit
5738086a6b
1 changed files with 1 additions and 2 deletions
  1. 1 2
      lisp/ox.el

+ 1 - 2
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))))