Make Edwin variable BEEPING-ALLOWED? that is false if Edwin must

never beep.

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index cf797637fe83fb1d3b01bcf645da86e1bf76f7f0..3a902dc5fe6fc29b86ca45e8e8e17c13c30361f8 100644 (file)
--- 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