From 4df417d49b36c0340ac4e2b5b2671147c960d250 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Sun, 8 Mar 1992 18:33:55 +0000
Subject: [PATCH] Make Edwin variable BEEPING-ALLOWED? that is false if Edwin
 must never beep.

---
 v7/src/edwin/basic.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index cf797637f..3a902dc5f 100644
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.122 1992/02/17 22:06:10 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.123 1992/03/08 18:33:55 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -252,8 +252,13 @@ For more information type the HELP key while entering the name."
   (editor-beep)
   (keyboard-macro-disable))
 
+(define-variable beeping-allowed?
+  "False if Edwin must never beep."
+  true)
+
 (define-integrable (editor-beep)
-  (screen-beep (selected-screen)))
+  (if (ref-variable beeping-allowed?)
+      (screen-beep (selected-screen))))
 
 ;;;; Level Control
 
-- 
2.25.1