Преглед изворни кода

Fix cursor position after applying filter

* lisp/org-agenda.el (org-agenda-filter-apply): Move cursor to a visible line.
Carsten Dominik пре 15 година
родитељ
комит
44977a9efe
1 измењених фајлова са 3 додато и 1 уклоњено
  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)