(kom-obsolete-extended-command-binding): Use ding if the user invokes

	this command.

src/ChangeLog

+2002-04-27  Per Cederqvist  <ceder@ceder.dyndns.org>
+
+	* commands2.el (kom-obsolete-extended-command-binding): Use ding
+	if the user invokes this command.
+
 2002-04-27  David Byers  <david.byers@swipnet.se>
 
 	* Release of 0.47-BETA-1

src/commands2.el

@@ -2901,5 +2901,10 @@ m
 ----------------------------------------------------------------
 "
                                       '(face kom-warning-face))
+  (ding)
+  ;; Make sure the user actually gets a beep.
+  (if visible-bell
+      (let ((visible-bell nil))
+	(ding)))
   (read-from-minibuffer 
    (lyskom-format "%#1@Tryck return eller enter fr att g vidare: " '(face kom-warning-face))))