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

(customize-group): Handle groups not yet loaded.

Browse Source 
(hook) [:value-to-internal]: Use a nil value unchanged.
This commit is contained in:
Richard M. Stallman 1997-09-12 19:43:45 +00:00
parent 780249f808
commit 5aa3f181e5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/cus-edit.el
View File

@ -809,13 +809,15 @@ are shown; the contents of those subgroups are initially hidden."
(completing-read "Customize group: (default emacs) "
obarray
(lambda (symbol)
(get symbol 'custom-group))
(or (get symbol 'custom-loads)
(get symbol 'custom-group)))
t))))
(when (stringp group)
(if (string-equal "" group)
(setq group 'emacs)
(setq group (intern group))))
(or (get group 'custom-group)
(custom-load-symbol group))
(let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group))))
(if (get-buffer name)
@ -2495,7 +2497,7 @@ Optional EVENT is the location for the menu."
(define-widget 'hook 'list
"A emacs lisp hook"
:value-to-internal (lambda (widget value)
(if (symbolp value)
(if (and value (symbolp value))
(list value)
value))
:match (lambda (widget value)