From 439ca062c830a7f3288a2dac48457edf5b1bfc59 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 8 Sep 2021 12:21:12 +0200 Subject: [PATCH] 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. --- lisp/simple.el | 1 - 1 file changed, 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 9e29241cc70..14e5abc87d5 100644 --- 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)) -- 2.39.2