ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't move to invisible line after marking for bulk action

This commit is contained in:
Carsten Dominik 2010-01-03 13:54:58 +01:00
parent 33ab72ab65
commit 430cb8067f
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-01-03 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-bulk-mark, org-agenda-bulk-unmark):
Move cursor to next visible line.
2010-01-02 Carsten Dominik <carsten.dominik@gmail.com> 2010-01-02 Carsten Dominik <carsten.dominik@gmail.com>
* org-beamer.el (org-beamer-sectioning): Leave columns environment * org-beamer.el (org-beamer-sectioning): Leave columns environment

4
lisp/org-agenda.el
View File

@ -7058,6 +7058,8 @@ This is a command that has to be installed in `calendar-mode-map'."
'evaporate) 'evaporate)
(org-overlay-put ov 'type 'org-marked-entry-overlay)) (org-overlay-put ov 'type 'org-marked-entry-overlay))
(beginning-of-line 2) (beginning-of-line 2)
(while (and (get-char-property (point) 'invisible) (not (eobp)))
(beginning-of-line 2))
(message "%d entries marked for bulk action" (message "%d entries marked for bulk action"
(length org-agenda-bulk-marked-entries)))) (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) (delete (org-get-at-bol 'org-hd-marker)
org-agenda-bulk-marked-entries))) org-agenda-bulk-marked-entries)))
(beginning-of-line 2) (beginning-of-line 2)
(while (and (get-char-property (point) 'invisible) (not (eobp)))
(beginning-of-line 2))
(message "%d entries marked for bulk action" (message "%d entries marked for bulk action"
(length org-agenda-bulk-marked-entries))) (length org-agenda-bulk-marked-entries)))