emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]