(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 9a3a3f35999861327a116cf61d9e6a451bb2aa88..917c01701fdcc4a0202b56f476a8ce1348392237 100644 (file)
--- 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 8a70d4beaab67b9e1d0b8f81fc322f8c742bdf04..5b9091c8f3e61e68131bc013bec900a9f44356ef 100644 (file)
--- 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))