mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source 
(Edit-options-modify): Cope with that.
This commit is contained in:
Richard M. Stallman 1995-03-15 22:51:56 +00:00
parent 514354e97c
commit 9b8002ba7d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/options.el
View File

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