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