(kom-obsolete-extended-command-binding): Be annoying both ways.

src/ChangeLog

+2002-05-03  Per Cederqvist  <ceder@ingate.com>
+
+	* commands2.el (kom-obsolete-extended-command-binding): Be
+	annoying both ways.
+
 2002-05-01  David Byers  <david.byers@swipnet.se>
 
 	* commands1.el (kom-move-text-tree): New command, innit?

src/commands2.el

@@ -2908,10 +2908,10 @@ Tryck p
 ----------------------------------------------------------------
 "
                                       '(face kom-warning-face))
-  (ding)
-  ;; Make sure the user actually gets a beep.
-  (if visible-bell
-      (let ((visible-bell nil))
-	(ding)))
+  ;; Beep both visibly and audibly, if possible.  We *want* to be annoying.
+  (let ((visible-bell t))
+    (ding))
+  (let ((visible-bell nil))
+    (ding)))
   (read-from-minibuffer 
    (lyskom-format "%#1@Tryck return eller enter fr att g vidare: " '(face kom-warning-face))))