From 0a2c357b3872ae2bb8611d9e381f2b5ea3dc16e4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 May 1991 03:10:30 +0000
Subject: [PATCH] Define M-x toggle-read-only here, not in "filcom.scm".

---
 v7/src/edwin/bufcom.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/bufcom.scm b/v7/src/edwin/bufcom.scm
index d98764f4f..482e4aca0 100644
--- 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)
-- 
2.25.1