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

README.org

@@ -4933,7 +4933,7 @@ Listing [[lst:bug-reference-mode]] configures ~bug-reference-mode~ for use with
 (defvar bug-reference-url-format
   "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s"
   "Format to use `gnu-debbugs' URL.")
-(put 'bug-reference-mode 'safe-local-variable 'booleanp))
+(put 'bug-reference-mode 'safe-local-variable 'booleanp)
 #+end_src
 
 *** [[info:elisp#Debugging][Debugging Emacs Lisp (info)]]
@@ -5908,13 +5908,15 @@ point movements visually.
 #+begin_src emacs-lisp -n :results silent
 ;; https://karthinks.com/software/batteries-included-with-emacs/
 ;; 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 _)
   "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
                    scroll-down-command