Mercurial > emacs

changeset 11027:21761da820cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edit-options): Make the buffer read-only. (Edit-options-modify): Cope with that.
author Richard M. Stallman <rms@gnu.org>
date Wed, 15 Mar 1995 22:51:56 +0000
parents 682ae4a3d465
children 123bb3f2d018
files lisp/options.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/options.el	Wed Mar 15 22:10:54 1995 +0000
+++ b/lisp/options.el	Wed Mar 15 22:51:56 1995 +0000
@@ -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 @@
 
 (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))