# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 909553692 0
# Node ID 18c5f58b70b55f139d3cb848a63c82b577fe27fe
# Parent  5f3243813b182f03a62a3fe690eeb805e239659b
(Fset_message_beep): Recognize 'silent.
(w32_sys_ring_bell): Do nothing for the 'silent sound.

diff -r 5f3243813b18 -r 18c5f58b70b5 src/w32console.c
--- a/src/w32console.c	Wed Oct 28 03:50:07 1998 +0000
+++ b/src/w32console.c	Wed Oct 28 05:48:12 1998 +0000
@@ -412,20 +412,28 @@
 }
 
 static unsigned int sound_type = 0xFFFFFFFF;
+#define MB_EMACS_SILENT (0xFFFFFFFF - 1)
 
 void
 w32_sys_ring_bell (void)
 {
   if (sound_type == 0xFFFFFFFF) 
+    {
       Beep (666, 100);
+    }
+  else if (sound_type == MB_EMACS_SILENT)
+    {
+      /* Do nothing.  */
+    }
   else
-      MessageBeep (sound_type);
+    MessageBeep (sound_type);
 }
 
 DEFUN ("set-message-beep", Fset_message_beep, Sset_message_beep, 1, 1, 0,
        "Set the sound generated when the bell is rung.\n\
-SOUND is 'asterisk, 'exclamation, 'hand, 'question, or 'ok\n\
-to use the corresponding system sound for the bell.\n\
+SOUND is 'asterisk, 'exclamation, 'hand, 'question, 'ok, or 'silent\n\
+to use the corresponding system sound for the bell.  The 'silent sound\n\
+prevents Emacs from making any sound at all.\n\
 SOUND is nil to use the normal beep.")
      (sound)
      Lisp_Object sound;
@@ -444,6 +452,8 @@
       sound_type = MB_ICONQUESTION;
   else if (EQ (sound, intern ("ok"))) 
       sound_type = MB_OK;
+  else if (EQ (sound, intern ("silent")))
+      sound_type = MB_EMACS_SILENT;
   else
       sound_type = 0xFFFFFFFF;