From b64ef3fb2f84500d9aa18365a9556fc5d8799b66 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 3 Mar 1999 17:42:47 +0000 Subject: [PATCH] (edit-options): Doc fix. (list-options): Don't lose with unbound symbols. Maintain Edit-options-mode. --- lisp/options.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/lisp/options.el b/lisp/options.el index 413e4105171..3697de1080c 100644 --- a/lisp/options.el +++ b/lisp/options.el @@ -37,9 +37,6 @@ (defun list-options () "Display a list of Emacs user options, with values and documentation." (interactive) - (save-excursion - (set-buffer (get-buffer-create "*List Options*")) - (Edit-options-mode)) (with-output-to-temp-buffer "*List Options*" (let (vars) (mapatoms (function (lambda (sym) @@ -48,25 +45,28 @@ (setq vars (sort vars 'string-lessp)) (while vars (let ((sym (car vars))) - (princ ";; ") - (prin1 sym) - (princ ":\n\t") - (prin1 (symbol-value sym)) - (terpri) - (princ (substitute-command-keys - (documentation-property sym 'variable-documentation))) - (princ "\n;;\n")) - (setq vars (cdr vars))))) - (save-excursion - (set-buffer "*List Options*") - (setq buffer-read-only t))) + (when (boundp sym) + (princ ";; ") + (prin1 sym) + (princ ":\n\t") + (prin1 (symbol-value sym)) + (terpri) + (princ (substitute-command-keys + (documentation-property sym 'variable-documentation))) + (princ "\n;;\n")) + (setq vars (cdr vars)))) + (with-current-buffer "*List Options*" + (Edit-options-mode) + (setq buffer-read-only t))))) ;;;###autoload (defun edit-options () "Edit a list of Emacs user option values. Selects a buffer containing such a list, in which there are commands to set the option values. -Type \\[describe-mode] in that buffer for a list of commands." +Type \\[describe-mode] in that buffer for a list of commands. + +The Custom feature is intended to make this obsolete." (interactive) (list-options) (pop-to-buffer "*List Options*")) -- 2.39.2