From 430cb8067fc2d0724a3afc5a8102a97f85941519 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sun, 3 Jan 2010 13:54:58 +0100 Subject: [PATCH] Don't move to invisible line after marking for bulk action --- lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1dd04afbc..ac0cff2c6 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-01-03 Carsten Dominik + + * org-agenda.el (org-agenda-bulk-mark, org-agenda-bulk-unmark): + Move cursor to next visible line. + 2010-01-02 Carsten Dominik * org-beamer.el (org-beamer-sectioning): Leave columns environment diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index da6031026..891b0cb46 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7058,6 +7058,8 @@ This is a command that has to be installed in `calendar-mode-map'." 'evaporate) (org-overlay-put ov 'type 'org-marked-entry-overlay)) (beginning-of-line 2) + (while (and (get-char-property (point) 'invisible) (not (eobp))) + (beginning-of-line 2)) (message "%d entries marked for bulk action" (length org-agenda-bulk-marked-entries)))) @@ -7071,6 +7073,8 @@ This is a command that has to be installed in `calendar-mode-map'." (delete (org-get-at-bol 'org-hd-marker) org-agenda-bulk-marked-entries))) (beginning-of-line 2) + (while (and (get-char-property (point) 'invisible) (not (eobp))) + (beginning-of-line 2)) (message "%d entries marked for bulk action" (length org-agenda-bulk-marked-entries))) -- 2.11.4.GIT