Browse Source

Fix cursor position after applying filter

* lisp/org-agenda.el (org-agenda-filter-apply): Move cursor to a visible line.
Carsten Dominik 11 years ago
parent
commit
44977a9efe
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/org-agenda.el

+ 3 - 1
lisp/org-agenda.el

@@ -5730,7 +5730,9 @@ If the line does not have an effort defined, return nil."
 	      (if (not (eval org-agenda-filter-form))
 		  (org-agenda-filter-by-tag-hide-line))
 	      (beginning-of-line 2))
-	  (beginning-of-line 2))))))
+	  (beginning-of-line 2))))
+    (if (get-char-property (point) 'invisible)
+	(org-agenda-previous-line))))
 
 (defun org-agenda-filter-by-tag-hide-line ()
   (let (ov)