Bugfix for `org-archive-subtree'.

The bug was this: when inserting an entry at the end of an archive
buffer, the entry would get folded within the previous entry fold.
This prevented the entry to get the proper DONE keyword when required.

This change also kill the archive buffer after archiving.
This commit is contained in:
Bastien Guerry 2008-03-01 13:13:45 +00:00
parent f247d16417
commit bf09955fec
2 changed files with 13 additions and 18 deletions

View File

@ -1,28 +1,23 @@
2008-03-01 Bastien Guerry <bzg@altern.org>
* org.texi (Capturing Column View): Documented new parameters for
the column view dynamic block: :maxlevel and :skip-empty-rows.
2008-03-01 Bastien Guerry <bzg@altern.org>
* org.el (org-dblock-write:columnview, org-columns-capture-view):
Added support for :maxlevel and :skip-empty-rows as argument for
the columnview dynamic block.
(org-archive-subtree): Fixed a bug that prevented entries to get
marked DONE even when `org-archive-mark-done' was non-nil. Also
kill archive buffer after archiving.
(org-export-as-html): Kill buffer after export when necessary.
2008-02-29 Bastien Guerry <bzg@altern.org>
* org-export-latex.el (org-export-as-latex): Kill buffer after
export when necessary.
* org.texi (Capturing Column View): Documented the new parameters
for the column view dynamic block: :maxlevel and :skip-empty-rows.
* org-irc.el: Require 'cl and 'erc. Added dynamically scoped
variables.
(org-irc-visit-erc): Bug fix: rename `chan' to `chan-name'.
2008-02-29 Bastien Guerry <bzg@altern.org>
* org.el (org-export-as-html): Kill buffer after
export when `to-buffer' is nil.
* org-export-latex.el (org-export-as-latex): Kill buffer after
export when `to-buffer' is nil.
2008-02-29 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-agenda-text-search-extra-files): Renamed from
@ -90,7 +85,6 @@
2008-02-27 Carsten Dominik <dominik@science.uva.nl>
* org-irc.el: Modified the installation instructions.
* org.el (org-store-link): Removed the (require 'org-irc), this is
@ -107,7 +101,6 @@
will be treated like negative values.
(org-show-todo-tree): Fix a small typo in the docstring.
2008-02-26 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-agenda-to-appt): Set `org-deadline-warning-days' to

6
org.el
View File

@ -8052,6 +8052,7 @@ this heading."
org-odd-levels-only
tr-org-odd-levels-only)))
(goto-char (point-min))
(show-all)
(if heading
(progn
(if (re-search-forward
@ -8094,8 +8095,9 @@ this heading."
(setq n (concat "ARCHIVE_" (upcase (symbol-name e))))
(org-entry-put (point) n v)))))
;; Save the buffer, if it is not the same buffer.
(if (not (eq this-buffer buffer)) (save-buffer))))
;; Save and kill the buffer, if it is not the same buffer.
(if (not (eq this-buffer buffer))
(progn (save-buffer) (kill-buffer buffer)))))
;; Here we are back in the original buffer. Everything seems to have
;; worked. So now cut the tree and finish up.
(let (this-command) (org-cut-subtree))