From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 15 Mar 1995 22:51:56 +0000 (+0000)
Subject: (edit-options): Make the buffer read-only.
X-Git-Tag: emacs-19.34~4831
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b8002ba7de817e35ad45116ec8d7e061ced2c1d;p=emacs.git

(edit-options): Make the buffer read-only.
(Edit-options-modify): Cope with that.
---

diff --git a/lisp/options.el b/lisp/options.el
index 4759c102666..26036c3d925 100644
--- a/lisp/options.el
+++ b/lisp/options.el
@@ -53,7 +53,10 @@
 	  (princ (substitute-command-keys 
 		  (documentation-property sym 'variable-documentation)))
 	  (princ "\n;;\n"))
-	(setq vars (cdr vars))))))
+	(setq vars (cdr vars)))))
+  (save-excursion
+    (set-buffer "*List Options*")
+    (setq buffer-read-only t)))
 
 ;;;###autoload
 (defun edit-options ()
@@ -119,7 +122,7 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
 
 (defun Edit-options-modify (modfun)
   (save-excursion
-   (let (var pos)
+   (let ((buffer-read-only nil) var pos)
      (re-search-backward "^;; \\|\\`")
      (forward-char 3)
      (setq pos (point))