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

Try a bit harder to avoid recentering after agenda buffer redo

Browse Source 
New try: temporarily nullify `recenter`, seems to work so far and keeps point on
the same line.
This commit is contained in:
Daniel Borchmann 2023-11-18 14:18:41 +01:00
parent 2407f4196f
commit 712a314923
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -1071,12 +1071,15 @@
(add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-active-filters) (add-hook 'org-agenda-finalize-hook #'db/org-agenda-insert-active-filters)
(add-hook 'org-agenda-filter-hook #'org-agenda-redo-all) (add-hook 'org-agenda-filter-hook #'org-agenda-redo-all)
(define-advice org-agenda-redo-all (:around (old-func &rest r) goto-top-and-execute) (define-advice org-agenda-redo (:around
"Avoid recentering the Org agenda buffer after redo by moving (actual-agenda-redo &rest r)
point to the beginning of buffer first." inhibit-recentering)
(save-mark-and-excursion "Try to avoid recentering the window when redoing the Org agenda buffer."
(goto-char (point-min)) (let ((old-recenter (symbol-function 'recenter)))
(apply old-func r))))) (fset 'recenter 'identity)
(unwind-protect
(apply actual-agenda-redo r)
(fset 'recenter old-recenter))))))
;; Capturing ;; Capturing