Compare commits

..

No commits in common. "f30a790b015f437747f6015f9ee68b99f390c265" and "cc52a4c1f145cd8e60e25ec9ba17714f26967777" have entirely different histories.

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,15 +5908,13 @@ 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."
(let ((pulse-iterations 16) ;; BUG#71537: I cannot use `let' here without requiring `pulse', but
(pulse-delay 0.1)) ;; `setq' has side effects.
(pulse-momentary-highlight-one-line (point)))) (setq pulse-iterations 16
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