Merge commit '997baefd66008827aa144c651c166701de78b43a'

diff --combined packages/beacon/Readme.org
index 1f20527f8d6362216e51c111278f39bbc2b51918,50631c8f7505a906c95e327e057621adc2bd48fa..50631c8f7505a906c95e327e057621adc2bd48fa
--- 1/packages/beacon/Readme.org
--- 2/Readme.org
+++ b/packages/beacon/Readme.org
@@@ -25,10 -25,11 +25,11 @@@ That’s it
    ~beacon-blink-when-window-changes~, and
    ~beacon-blink-when-point-moves~.
  
- - To prevent the beacon from blinking only on some major-modes,
-   configure ~beacon-dont-blink-major-modes~. For specific buffers, you
-   can do ~(setq-local beacon-mode nil)~. For even more refined
-   control, configure ~beacon-dont-blink-predicates~
+ - To prevent the beacon from blinking only on specific situations
+   configure ~beacon-dont-blink-major-modes~,
+   ~beacon-dont-blink-predicates~, or ~beacon-dont-blink-commands~. You
+   can also disable it only in specific buffers by doing
+   ~(setq-local beacon-mode nil)~.
  
  - Beacon can also push the mark for you whenever point moves a long
    distance. For this, configure ~beacon-push-mark~.

diff --combined packages/beacon/beacon.el
index 290054eb083ed3a04a91c8bf9689a2058bcc4159,feda34b88819a81c0fa36d80443d037c6b2dce24..feda34b88819a81c0fa36d80443d037c6b2dce24
--- 1/packages/beacon/beacon.el
--- 2/beacon.el
+++ b/packages/beacon/beacon.el
@@@ -33,28 -33,7 +33,7 @@@
  ;;
  ;; That’s it.
  ;;
- ;;
- ;; 1 Customizations
- ;; ════════════════
- ;;
- ;;   • The appearance of the beacon is configured by `beacon-size' and
- ;;     `beacon-color'.
- ;;
- ;;   • The duration is configured by `beacon-blink-duration' and
- ;;     `beacon-blink-delay'.
- ;;
- ;;   • To customize /when/ the beacon should blink at all, configure
- ;;     `beacon-blink-when-window-scrolls',
- ;;     `beacon-blink-when-window-changes', and
- ;;     `beacon-blink-when-point-moves'.
- ;;
- ;;   • To prevent the beacon from blinking only on some major-modes,
- ;;     configure `beacon-dont-blink-major-modes'. For specific buffers, you
- ;;     can do `(setq-local beacon-mode nil)'. For even more refined
- ;;     control, configure `beacon-dont-blink-predicates'
- ;;
- ;;   • Beacon can also push the mark for you whenever point moves a long
- ;;     distance. For this, configure `beacon-push-mark'.
+ ;; See the accompanying Readme.org for configuration details.
  
  ;;; Code:
  
@@@ -134,6 -113,13 +113,13 @@@ one of the major-modes on this list, th
  blink."
    :type '(repeat symbol))
  
+ (defcustom beacon-dont-blink-commands '(recenter-top-bottom)
+   "A list of commands that should not make the beacon blink.
+ Use this for commands that scroll the window in very
+ predictable ways, when the blink would be more distracting
+ than helpful.."
+   :type '(repeat symbol))
+ 
  \f
  ;;; Overlays
  (defvar beacon--ovs nil)
@@@ -259,7 -245,8 +245,8 @@@ Only returns `beacon-size' elements.
    (beacon--vanish)
    (unless (or (not beacon-mode)
                (run-hook-with-args-until-success 'beacon-dont-blink-predicates)
-               (seq-find #'derived-mode-p beacon-dont-blink-major-modes))
+               (seq-find #'derived-mode-p beacon-dont-blink-major-modes)
+               (memq (or this-command last-command) beacon-dont-blink-commands))
      (beacon--shine)
      (setq beacon--timer
            (run-at-time beacon-blink-delay