Compare commits
No commits in common. "f30a790b015f437747f6015f9ee68b99f390c265" and "cc52a4c1f145cd8e60e25ec9ba17714f26967777" have entirely different histories.
f30a790b01
...
cc52a4c1f1
14
README.org
14
README.org
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user