Address all issues raised in BUG#71537

README.org

@@ -977,9 +977,11 @@ Emacs.  Try {{{kbd(C-h o)}}} instead of {{{kbd(C-h f)}}} or {{{kbd(C-h v)}}}.
 (with-eval-after-load 'help-fns
   ;; ChatGPT recommends to require `shortdoc' contrary to the
   ;; `shortdoc-help-fns-examples-function' documentation string.
-  (require 'shortdoc)
+  ;; BUG#71537: "emacs -Q" does not need the `add-hook' form. Note:
+  ;; `add-hook' should append `shortdoc-help-fns-examples-function' to
+  ;; `help-fns-describe-function-functions'.
   (add-hook 'help-fns-describe-function-functions
-            #'shortdoc-help-fns-examples-function)
+            #'shortdoc-help-fns-examples-function 'append)
   (setopt help-enable-symbol-autoload t))
 #+end_src
 
@@ -5937,14 +5939,13 @@ 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
-(require 'pulse) ; since `pulse' does not autoload `pulse-delay' and
-                 ; `pulse-iterations'.
-
 (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))))
+  ;; BUG#71537: I cannot use `let' here without requiring `pulse', but
+  ;; `setq' has side effects.
+  (setq pulse-iterations 16
+        pulse-delay 0.1)
+  (pulse-momentary-highlight-one-line (point)))
 
 (dolist (command '(scroll-up-command
                    scroll-down-command