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

Use let' in flash-line-around-point' contrary to BUG#71537

Browse Source
This commit is contained in:
Gerard Vermeulen 2024-06-14 14:26:34 +02:00
parent e22a3478e2
commit f30a790b01
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
README.org
View File

@ -5908,13 +5908,15 @@ point movements visually.
#+begin_src emacs-lisp -n :results silent #+begin_src emacs-lisp -n :results silent
;; 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
;; BUG#71537: Using `let' in `flash-line-around-point' implies
;; requiring `pulse'.
(require 'pulse)
(defun flash-line-around-point (&rest _) (defun flash-line-around-point (&rest _)
"Flash the line around point." "Flash the line around point."
;; BUG#71537: I cannot use `let' here without requiring `pulse', but (let ((pulse-iterations 16)
;; `setq' has side effects. (pulse-delay 0.1))
(setq pulse-iterations 16 (pulse-momentary-highlight-one-line (point))))
pulse-delay 0.1)
(pulse-momentary-highlight-one-line (point)))
(dolist (command '(scroll-up-command (dolist (command '(scroll-up-command
scroll-down-command scroll-down-command