(edit-options): Make the buffer read-only.

(Edit-options-modify): Cope with that.

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