From 0db1ff2312c3b7cc3e252f1991121aa833d95501 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Sep 1997 00:21:07 +0000 Subject: [PATCH] (custom-variable-save): Fixed doc string. (custom-variable-menu): Make it clear that `Lisp mode' edit the initial lisp expression. --- lisp/cus-edit.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index c08c41eb428..d65dd8ae8be 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1960,7 +1960,7 @@ Otherwise, look up symbol in `custom-guess-type-alist'." ("Don't show as Lisp expression" custom-variable-edit (lambda (widget) (eq (widget-get widget :custom-form) 'lisp))) - ("Show as Lisp expression" custom-variable-edit-lisp + ("Show initial Lisp expression" custom-variable-edit-lisp (lambda (widget) (eq (widget-get widget :custom-form) 'edit)))) "Alist of actions for the `custom-variable' widget. @@ -2023,7 +2023,7 @@ Optional EVENT is the location for the menu." (custom-redraw-magic widget))) (defun custom-variable-save (widget) - "Set the default value for the variable being edited by WIDGET." + "Set and save the value for the variable being edited by WIDGET." (let* ((form (widget-get widget :custom-form)) (state (widget-get widget :custom-state)) (child (car (widget-get widget :children))) -- 2.39.2