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

Compare commits

base: gav451:cc52a4c1f145cd8e60e25ec9ba17714f26967777
Branches Tags
gav451:main
..
compare: gav451:f30a790b015f437747f6015f9ee68b99f390c265
Branches Tags
gav451:main

2 Commits
cc52a4c1f1 ... f30a790b01

Author SHA1 Message Date
Gerard Vermeulen
f30a790b01 Use let' in flash-line-around-point' contrary to BUG#71537 2024-06-14 14:26:34 +02:00
Gerard Vermeulen
e22a3478e2 Fix typo 2024-06-14 14:20:26 +02:00
1 changed files with 8 additions and 6 deletions
Show Stats Expand all files Collapse all files

14
README.org
View File

@ -4933,7 +4933,7 @@ Listing [[lst:bug-reference-mode]] configures ~bug-reference-mode~ for use with
(defvar bug-reference-url-format (defvar bug-reference-url-format
"https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s" "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s"
"Format to use `gnu-debbugs' URL.") "Format to use `gnu-debbugs' URL.")
(put 'bug-reference-mode 'safe-local-variable 'booleanp)) (put 'bug-reference-mode 'safe-local-variable 'booleanp)
#+end_src #+end_src
*** [[info:elisp#Debugging][Debugging Emacs Lisp (info)]] *** [[info:elisp#Debugging][Debugging Emacs Lisp (info)]]
@ -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