(custom-handle-all-keywords): Fix arg passed to custom-add-to-group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c4c68b73c8e0d00e2e11515e98ec84bc9adda32..dde7ded30cdf50e326a54210da0454b3858583a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-13   Markus Rost  <rost@math.ohio-state.edu>
+
+       * custom.el (custom-handle-all-keywords): Fix arg passed to
+       custom-add-to-group.
+
 2002-11-12   Markus Rost  <rost@math.ohio-state.edu>
 
        * vc-rcs.el (vc-rcs-registered): Handle the autoload cookie so

diff --git a/lisp/custom.el b/lisp/custom.el
index 0d0728d5462ca9a7169e616bb1c4df13f86edb14..dcc6bb6f0466bf35230efb7c5d00601d6342763b 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -396,7 +396,7 @@ If no such group is found, return nil."
   "For customization option SYMBOL, handle keyword arguments ARGS.
 Third argument TYPE is the custom option type."
   (unless (memq :group args)
-    (custom-add-to-group (custom-current-group) symbol 'custom-face))
+    (custom-add-to-group (custom-current-group) symbol type))
   (while args
     (let ((arg (car args)))
       (setq args (cdr args))