exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix wrong search region for inserting active filter display

Browse Source
This commit is contained in:
Daniel Borchmann 2023-04-29 17:35:20 +02:00
parent a4823651a1
commit b67a920780
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
site-lisp/db-org.el
View File

@ -123,7 +123,7 @@ Add this function to `org-agenda-finalize-hook' to enable this."
;; First delete any present active filter display, as it might be obsolete. ;; First delete any present active filter display, as it might be obsolete.
(save-excursion (save-excursion
(when-let ((pos (text-property-any (when-let ((pos (text-property-any
(point) (point-max) 'db/active-filter-display t))) (point-min) (point-max) 'db/active-filter-display t)))
(goto-char pos) (goto-char pos)
(kill-line))) (kill-line)))
@ -131,7 +131,7 @@ Add this function to `org-agenda-finalize-hook' to enable this."
(when (org-agenda-filter-any) (when (org-agenda-filter-any)
(save-excursion (save-excursion
(when-let ((pos (text-property-any (when-let ((pos (text-property-any
(point) (point-max) 'org-agenda-structural-header t))) (point-min) (point-max) 'org-agenda-structural-header t)))
(goto-char pos) (goto-char pos)
(end-of-line) (end-of-line)