# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1037726530 0
# Node ID 2339811a69f08a4cc4207eff86d4df0e55906e4c
# Parent  b269dc6630f0995c4e0400f3f241f6e0a2a582aa
(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.

diff -r b269dc6630f0 -r 2339811a69f0 lisp/progmodes/vhdl-mode.el
--- a/lisp/progmodes/vhdl-mode.el	Tue Nov 19 16:50:40 2002 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Tue Nov 19 17:22:10 2002 +0000
@@ -1122,22 +1122,23 @@
          (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 @@
 		      (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))