mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Archive subtree and move to next visible task 

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 commit is contained in:
Bernt Hansen 2009-07-07 17:38:46 -04:00 committed by Carsten Dominik
parent 79b70a7e66
commit 3e24ccf646
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-archive.el
View File

@ -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.