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

Simplify "lst:flash-line-around-point"

Browse Source
This commit is contained in:
Gerard Vermeulen 2024-06-12 16:43:12 +02:00
parent 9722833400
commit cbfab437b1
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.org
View File

@ -5968,10 +5968,6 @@ point movements visually.
#+caption: Implement =flash-line-around-point=. #+caption: Implement =flash-line-around-point=.
#+name: lst:flash-line-around-point #+name: lst:flash-line-around-point
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
;; Ensure loading `pulse' with the dynamic variables `pulse-delay' and
;; `pulse-iterations' before masking them lexically instead of after
;; to prevent the warning triggered by lazy loading.
(when (require 'pulse nil 'noerror)
;; https://karthinks.com/software/batteries-included-with-emacs/ ;; https://karthinks.com/software/batteries-included-with-emacs/
;; https://github.com/karthink/.emacs.d/blob/master/init.el#L2077 ;; https://github.com/karthink/.emacs.d/blob/master/init.el#L2077
(defun flash-line-around-point (&rest _) (defun flash-line-around-point (&rest _)
@ -5984,7 +5980,7 @@ point movements visually.
scroll-down-command scroll-down-command
recenter-top-bottom recenter-top-bottom
other-window)) other-window))
(advice-add command :after #'flash-line-around-point))) (advice-add command :after #'flash-line-around-point))
#+end_src #+end_src
* Applications * Applications