From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 May 1991 03:10:30 +0000 (+0000)
Subject: Define M-x toggle-read-only here, not in "filcom.scm".
X-Git-Tag: 20090517-FFI~10648
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0a2c357b3872ae2bb8611d9e381f2b5ea3dc16e4;p=mit-scheme.git

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 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)