[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Lars Ingebrigtsen
Subject: bug#44375: Always give a message when flashing the screen
Date: Mon, 02 Nov 2020 17:24:28 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux)

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)

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))

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

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]