From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 24 May 1994 19:50:04 +0000 (+0000)
Subject: (do_visible_bell): Renamed from visible_bell to avoid
X-Git-Tag: emacs-19.34~8186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcea9cd4dbb9cc0a7a6e84498f703d686b860edd;p=emacs.git

(do_visible_bell): Renamed from visible_bell to avoid
potential conflict with variable of the same name.  Caller changed.
(internal_flush): Code for audio bell inserted.
---

diff --git a/src/msdos.c b/src/msdos.c
index 19da6103676..58733b418aa 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -764,7 +764,7 @@ init_environment (argc, argv, skip_args)
 static unsigned char _xorattr;
 
 static void
-visible_bell (xorattr)
+do_visible_bell (xorattr)
      unsigned char xorattr;
 {
   _xorattr = xorattr;
@@ -843,7 +843,7 @@ internal_flush (f)
 		  count -= 3;
 		  break;
 		case 'B':
-		  visible_bell (*cp++);
+		  do_visible_bell (*cp++);
 		  count -= 3;
 		  break;
 		case 'C':
@@ -872,6 +872,10 @@ internal_flush (f)
 		  count -= 2;
 		}
 	      break;
+	    case 7:
+	      write (1, "\007", 1);
+	      count--;
+	      break;
 	    case 8:
 	      x--;
 	      count--;