2 files changed, 32 insertions, 32 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a3a3f35999..917c01701fd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,13 +1,19 @@
-2002-11-19  Stefan Monnier  <monnier@cs.yale.edu>
-
-        * emacs-lisp/cl.el (multiple-value-call): Add docstring.
-
 2002-11-19   Markus Rost  <rost@math.ohio-state.edu>
 
+        * progmodes/vhdl-mode.el (defgroup vhdl-related): Declare the
+        members here rather than with custom-add-to-group.  This is the
+        intended way of using defgroup and also lets
+        custom-make-dependencies do its job.
+        (defgroup vhdl-highlight-faces): Ditto.
+
         * emacs-lisp/shadow.el (defgroup lisp-shadow): New group name.
         Previous group name shadow is used in shadowfile.el.
         (shadows-compare-text-p): Use group lisp-shadow.
 
+2002-11-19  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * emacs-lisp/cl.el (multiple-value-call): Add docstring.
+
 2002-11-19  Masatake Yamato  <jet@gyve.org>  (tiny change)
 
         * register.el (describe-register-1): Don't assign to val the value
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 8a70d4beaab..5b9091c8f3e 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -1122,22 +1122,23 @@ NOTE: Activate the new setting in a VHDL buffer using the menu entry
          (vhdl-custom-set variable value 'vhdl-mode-syntax-table-init))
   :group 'vhdl-misc)
 
-
-(defgroup vhdl-related nil
+;; add related general customizations
+(defgroup vhdl-related
+  (if (string-match "XEmacs" emacs-version)
+      '((ps-print custom-group)
+        (mail-host-address custom-variable)
+        (user-mail-address custom-variable)
+        (line-number-mode custom-variable)
+        (paren-mode custom-variable))
+    '((ps-print custom-group)
+      (mail-host-address custom-variable)
+      (user-mail-address custom-variable)
+      (line-number-mode custom-variable)
+      (paren-showing custom-group)
+      (transient-mark-mode custom-variable)))
   "Related general customizations."
   :group 'vhdl)
 
-;; add related general customizations
-(custom-add-to-group 'vhdl-related 'line-number-mode 'custom-variable)
-(if (string-match "XEmacs" emacs-version)
-    (custom-add-to-group 'vhdl-related 'paren-mode 'custom-variable)
-  (custom-add-to-group 'vhdl-related 'paren-showing 'custom-group))
-(unless (string-match "XEmacs" emacs-version)
-  (custom-add-to-group 'vhdl-related 'transient-mark-mode 'custom-variable))
-(custom-add-to-group 'vhdl-related 'ps-print 'custom-group)
-(custom-add-to-group 'vhdl-related 'mail-host-address 'custom-variable)
-(custom-add-to-group 'vhdl-related 'user-mail-address 'custom-variable)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal variables
 
@@ -9405,24 +9406,17 @@ This does background highlighting of translate-off regions.")
                       (nth 0 (car syntax-alist)) ".")))
     (setq syntax-alist (cdr syntax-alist))))
 
-(defgroup vhdl-highlight-faces nil
+;; add faces used from `font-lock'.
+(defgroup vhdl-highlight-faces
+  '((font-lock-comment-face custom-face)
+    (font-lock-string-face custom-face)
+    (font-lock-keyword-face custom-face)
+    (font-lock-type-face custom-face)
+    (font-lock-function-name-face custom-face)
+    (font-lock-variable-name-face custom-face))
   "Faces for highlighting."
   :group 'vhdl-highlight)
 
-;; add faces used from `font-lock'
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-comment-face 'custom-face)
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-string-face 'custom-face)
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-keyword-face 'custom-face)
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-type-face 'custom-face)
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-function-name-face 'custom-face)
-(custom-add-to-group
- 'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
-
 (defface vhdl-font-lock-prompt-face
   '((((class color) (background light)) (:foreground "Red" :weight bold))
     (((class color) (background dark)) (:foreground "Pink" :weight bold))