aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/custom.el2
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c4c68b73c8..dde7ded30cd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12002-11-13 Markus Rost <rost@math.ohio-state.edu>
2
3 * custom.el (custom-handle-all-keywords): Fix arg passed to
4 custom-add-to-group.
5
12002-11-12 Markus Rost <rost@math.ohio-state.edu> 62002-11-12 Markus Rost <rost@math.ohio-state.edu>
2 7
3 * vc-rcs.el (vc-rcs-registered): Handle the autoload cookie so 8 * vc-rcs.el (vc-rcs-registered): Handle the autoload cookie so
diff --git a/lisp/custom.el b/lisp/custom.el
index 0d0728d5462..dcc6bb6f046 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -396,7 +396,7 @@ If no such group is found, return nil."
396 "For customization option SYMBOL, handle keyword arguments ARGS. 396 "For customization option SYMBOL, handle keyword arguments ARGS.
397Third argument TYPE is the custom option type." 397Third argument TYPE is the custom option type."
398 (unless (memq :group args) 398 (unless (memq :group args)
399 (custom-add-to-group (custom-current-group) symbol 'custom-face)) 399 (custom-add-to-group (custom-current-group) symbol type))
400 (while args 400 (while args
401 (let ((arg (car args))) 401 (let ((arg (car args)))
402 (setq args (cdr args)) 402 (setq args (cdr args))