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

README.org

@@ -5968,23 +5968,19 @@ point movements visually.
 #+caption: Implement =flash-line-around-point=.
 #+name: lst:flash-line-around-point
 #+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://github.com/karthink/.emacs.d/blob/master/init.el#L2077
-  (defun flash-line-around-point (&rest _)
-    "Flash the line around point."
-    (let ((pulse-iterations 16)
-          (pulse-delay 0.1))
-      (pulse-momentary-highlight-one-line (point))))
+;; https://karthinks.com/software/batteries-included-with-emacs/
+;; https://github.com/karthink/.emacs.d/blob/master/init.el#L2077
+(defun flash-line-around-point (&rest _)
+  "Flash the line around point."
+  (let ((pulse-iterations 16)
+        (pulse-delay 0.1))
+    (pulse-momentary-highlight-one-line (point))))
 
-  (dolist (command '(scroll-up-command
-                     scroll-down-command
-                     recenter-top-bottom
-                     other-window))
-    (advice-add command :after #'flash-line-around-point)))
+(dolist (command '(scroll-up-command
+                   scroll-down-command
+                   recenter-top-bottom
+                   other-window))
+  (advice-add command :after #'flash-line-around-point))
 #+end_src
 
 * Applications