mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(custom-variable-save): Fixed doc string.

Browse Source 
(custom-variable-menu): Make it clear that `Lisp
mode' edit the initial lisp expression.
This commit is contained in:
Richard M. Stallman 1997-09-09 00:21:07 +00:00
parent 1e4ed6df18
commit 0db1ff2312
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/cus-edit.el
View File

@ -1960,7 +1960,7 @@ Otherwise, look up symbol in `custom-guess-type-alist'."
("Don't show as Lisp expression" custom-variable-edit ("Don't show as Lisp expression" custom-variable-edit
(lambda (widget) (lambda (widget)
(eq (widget-get widget :custom-form) 'lisp))) (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) (lambda (widget)
(eq (widget-get widget :custom-form) 'edit)))) (eq (widget-get widget :custom-form) 'edit))))
"Alist of actions for the `custom-variable' widget. "Alist of actions for the `custom-variable' widget.
@ -2023,7 +2023,7 @@ Optional EVENT is the location for the menu."
(custom-redraw-magic widget))) (custom-redraw-magic widget)))
(defun custom-variable-save (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)) (let* ((form (widget-get widget :custom-form))
(state (widget-get widget :custom-state)) (state (widget-get widget :custom-state))
(child (car (widget-get widget :children))) (child (car (widget-get widget :children)))