Define M-x toggle-read-only here, not in "filcom.scm".

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index d98764f4f3d4088c5b2ec65045f40fd9bfe31455..482e4aca0bdc4345882102081a898f21f83450aa 100644 (file)
--- a/v7/src/edwin/bufcom.scm
+++ b/v7/src/edwin/bufcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufcom.scm,v 1.87 1991/05/02 01:12:22 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufcom.scm,v 1.88 1991/05/07 03:10:30 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -52,6 +52,16 @@
   (lambda ()
     (buffer-not-modified! (current-buffer))))
 
+(define-command toggle-read-only
+  "Change whether this buffer is visiting its file read-only."
+  ()
+  (lambda ()
+    (let ((buffer (current-buffer)))
+      ((if (buffer-writeable? buffer)
+          set-buffer-read-only!
+          set-buffer-writeable!)
+       buffer))))
+
 (define-variable select-buffer-create
   "If true, buffer selection commands may create new buffers."
   true)