Commit 9b8002ba authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(Edit-options-modify): Cope with that.
parent 514354e9
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment