Don't ding at the user in pop-mark

* 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.

diff --git a/lisp/simple.el b/lisp/simple.el
index 9e29241cc7009fca50993de1767cf89167c44cf5..14e5abc87d5948ba50388d630f90de9301c9c3f3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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))