diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-20 20:23:03 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-20 20:23:03 +0200 |
commit | 44977a9efebe1ca5299791ea8c098ec62e64f3b1 (patch) | |
tree | 4d598ef2d1131c7100d842dddb3e64b46d726209 | |
parent | 12e58f484450f1a062ae26ac76abb0694df1dc50 (diff) | |
download | org-mode-44977a9efebe1ca5299791ea8c098ec62e64f3b1.tar.gz |
Fix cursor position after applying filter
* lisp/org-agenda.el (org-agenda-filter-apply): Move cursor to a visible line.
-rw-r--r-- | lisp/org-agenda.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7458076..d2d1f75 100644 --- a/lisp/org-agenda.el +++ b/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) |