[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] Skip uninteresting lines when navigating the agenda
From: |
Bernt Hansen |
Subject: |
[O] [PATCH] Skip uninteresting lines when navigating the agenda |
Date: |
Wed, 7 Mar 2012 21:14:47 -0500 |
* lisp/org-agenda.el (org-agenda-next-line): Skip lines without markers
* lisp/org-agenda.el (org-agenda-previous-line): Skip lines without markers
Next and previous line functions now only visit agenda lines
which have a marker defined. This skips all of the
uninteresting data lines in the agenda window such as
empty grid lines, titles, and separate lines in block agendas.
---
lisp/org-agenda.el | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index ac1b5b1..90a4228 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6911,12 +6911,18 @@ When called with a prefix argument, include all archive
files as well."
"Move cursor to the next line, and show if follow mode is active."
(interactive)
(call-interactively 'next-line)
+ (while (and (not (org-get-at-bol 'org-hd-marker))
+ (< (point) (point-max)))
+ (call-interactively 'next-line))
(org-agenda-do-context-action))
(defun org-agenda-previous-line ()
"Move cursor to the previous line, and show if follow-mode is active."
(interactive)
(call-interactively 'previous-line)
+ (while (and (not (org-get-at-bol 'org-hd-marker))
+ (> (point) (point-min)))
+ (call-interactively 'previous-line))
(org-agenda-do-context-action))
(defun org-agenda-do-context-action ()
--
1.7.9.48.g85da4d
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [O] [PATCH] Skip uninteresting lines when navigating the agenda,
Bernt Hansen <=