mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

Don't ding at the user in pop-mark

Browse source 
* lisp/simple.el (pop-mark): Don't ding at the user if there's no
mark to pop (bug#44375).  This function is used (in some
circumstances) when the user mouse-1-clicks links (in *Help*
buffer, for instance), which will then ding at the user before
following the link.
This commit is contained in:
Lars Ingebrigtsen 2021-09-08 12:21:12 +02:00
parent 2bd26ed697
commit 439ca062c8
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/simple.el
View file

@ -6622,7 +6622,6 @@ Does not set point. Does nothing if mark ring is empty."
(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))