mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 15:16:26 +00:00
Code Releases Activity

Fix bug with sibling archiving on top level.

Browse source
This commit is contained in:
Carsten Dominik 2008-10-21 22:29:03 +02:00
parent 5f432e324c
commit 69bf8ef2b4
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-10-21 Carsten Dominik <dominik@science.uva.nl>
* org-archive.el (org-archive-to-archive-sibling): Handle top
level headlines better.
2008-10-21 Bastien Guerry <bzg@altern.org> 2008-10-21 Bastien Guerry <bzg@altern.org>
* org-export-latex.el (org-export-latex-classes): Added * org-export-latex.el (org-export-latex-classes): Added

11
lisp/org-archive.el
View file

@ -322,12 +322,13 @@ sibling does not exist, it will be created at the end of the subtree."
(setq pos (point)) (setq pos (point))
(condition-case nil (condition-case nil
(outline-up-heading 1 t) (outline-up-heading 1 t)
(error (goto-char (point-min)))) (error (setq e (point-max)) (goto-char (point-min))))
(setq b (point)) (setq b (point))
(condition-case nil (unless e
(org-end-of-subtree t t) (condition-case nil
(error (goto-char (point-max)))) (org-end-of-subtree t t)
(setq e (point)) (error (goto-char (point-max))))
(setq e (point)))
(goto-char b) (goto-char b)
(unless (re-search-forward (unless (re-search-forward
(concat "^" (regexp-quote leader) (concat "^" (regexp-quote leader)