From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 19 Nov 2002 17:22:52 +0000 (+0000)
Subject: (defgroup vhdl-related): Declare the members here rather than with
X-Git-Tag: ttn-vms-21-2-B4~12331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a152344b143a6859bfa4e28f7c0373dcd1fc89eb;p=emacs.git

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