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

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

Browse Source
This commit is contained in:
Markus Rost 2002-11-13 02:27:21 +00:00
parent c2fd1f35e9
commit 9b6098b97d
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

2
lisp/custom.el
View File

@ -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))