procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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
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) " (completing-read "Customize group: (default emacs) "
obarray obarray
(lambda (symbol) (lambda (symbol)
(get symbol 'custom-group)) (or (get symbol 'custom-loads)
(get symbol 'custom-group)))
t)))) t))))
(when (stringp group) (when (stringp group)
(if (string-equal "" group) (if (string-equal "" group)
(setq group 'emacs) (setq group 'emacs)
(setq group (intern group)))) (setq group (intern group))))
(or (get group 'custom-group)
(custom-load-symbol group))
(let ((name (format "*Customize Group: %s*" (let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group)))) (custom-unlispify-tag-name group))))
(if (get-buffer name) (if (get-buffer name)
@ -2495,7 +2497,7 @@ Optional EVENT is the location for the menu."
(define-widget 'hook 'list (define-widget 'hook 'list
"A emacs lisp hook" "A emacs lisp hook"
:value-to-internal (lambda (widget value) :value-to-internal (lambda (widget value)
(if (symbolp value) (if (and value (symbolp value))
(list value) (list value)
value)) value))
:match (lambda (widget value) :match (lambda (widget value)