Fix export bug of a region with an ARCHIVE property set

2010-11-01 13:57:02 +01:00 · 2010-11-01 13:57:02 +01:00 · adede9fbaf
parent ed5665e1e2
commit adede9fbaf
1 changed files with 1 additions and 1 deletions
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@ -1482,7 +1482,7 @@ from the buffer."
      (goto-char (point-min))
      (while (re-search-forward re-archive nil t)
 	(if (not (org-on-heading-p t))
-	    (org-end-of-subtree t)
+	    (goto-char (point-at-eol))
 	  (beginning-of-line 1)
 	  (setq a (if export-archived-trees
 		      (1+ (point-at-eol)) (point))