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

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

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

And this is the bit that unsets the mark -- the first entry in mark-ring
is a mark that points to no buffer.

Is it obvious to anybody what's going wrong here?  :-)

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