summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-02-27 11:53:24 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-02-27 11:53:24 +0100
commit5738086a6b81adacc328f18712994f4316af7426 (patch)
tree46abcca4b9518d5ac521c940fdb2d0a7c147f694
parent80bbf2440a3a418fd203c64b6d612f2dbdce6aea (diff)
downloadorg-mode-5738086a6b81adacc328f18712994f4316af7426.tar.gz
ox: Small refactoring
* lisp/ox.el (org-export-prune-tree): Small refactoring.
-rw-r--r--lisp/ox.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/ox.el b/lisp/ox.el
index 8a7182d..de57ad0 100644
--- 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))))