bug#44375: Always give a message when flashing the screen

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> I don't have a recipe to reproduce it, though -- In this Emacs I can do
> `M-x describe-face RET default RET' and then mouse-1 on the "faces.el"
> button, and Emacs will ding me before taking me to the faces.el file.

I still don't have a recipe -- it seems to happen after having done an
unspecified number of actions in the *Help* buffer.  The thing that's
dinging is this, though:

(defun mouse-drag-track (start-event)

[...]

     t (lambda ()
         (setq track-mouse old-track-mouse)
         (setq auto-hscroll-mode auto-hscroll-mode-saved)
         (deactivate-mark)
         (pop-mark)))))

When the pop-mark is called (mark t) is non-nil.  pop-mark is just this:

(defun pop-mark ()
  "Pop off mark ring into the buffer's actual mark.
Does not set point.  Does nothing if mark ring is empty."
  (when mark-ring
    (setq mark-ring (nconc mark-ring (list (copy-marker (mark-marker)))))
    (set-marker (mark-marker) (car mark-ring))
    (set-marker (car mark-ring) nil)
    (unless (mark t) (ding))
    (pop mark-ring))
  (deactivate-mark))

(mark t) is nil here, so it dings.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no