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

(hook) [:value-to-internal]: Use a nil value unchanged.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 501f757bcf4d3ea87f4dbcea4fad614532f5d22e..0af690058aa9fb1f8cace7c612f1a1095317846e 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -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)