From 9b8002ba7de817e35ad45116ec8d7e061ced2c1d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 15 Mar 1995 22:51:56 +0000
Subject: [PATCH] (edit-options): Make the buffer read-only.
 (Edit-options-modify): Cope with that.

---
 lisp/options.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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