This skips over blank lines preceeding the next task when archiving
a task or
subtree. This allows us to use a keyboard macro to remember the
archive key
sequence incantation and skips to the next heading so we don't
accidentally
archive the wrong task.
This fixes an issue with blank line handling. Tasks which have
blank lines
following them do not include the blank lines -- they are part of
the following
task. This moves the point forward to the next visible headline so
that if we
repeat the archive operation it affects the following task and not
the previous
one by mistake.
---
This patch is available at git://git.norang.ca/org-mode for-carsten
lisp/org-archive.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 2c55a5c..35de4f9 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -308,7 +308,9 @@ this heading."
(if (eq this-buffer buffer)
(concat "under heading: " heading)
(concat "in file: " (abbreviate-file-name afile))))))
- (org-reveal))
+ (org-reveal)
+ (if (looking-at "^[ \t]*$")
+ (outline-next-visible-heading 1)))
(defun org-archive-to-archive-sibling ()
"Archive the current heading by moving it under the archive sibling.
@@ -360,7 +362,9 @@ sibling does not exist, it will be created at
the end of the subtree."
(hide-subtree)
(org-cycle-show-empty-lines 'folded)
(goto-char pos)))
- (org-reveal))
+ (org-reveal)
+ (if (looking-at "^[ \t]*$")
+ (outline-next-visible-heading 1)))
(defun org-archive-all-done (&optional tag)
"Archive sublevels of the current tree without open TODO items.
--
1.6.3.2.198.g6096d
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode