Mercurial > emacs
changeset 48465:2339811a69f0
(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.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Tue, 19 Nov 2002 17:22:10 +0000 |
| parents | b269dc6630f0 |
| children | 192ea43d05e3 |
| files | lisp/progmodes/vhdl-mode.el |
| diffstat | 1 files changed, 22 insertions(+), 28 deletions(-) [+] |
line wrap: on
line diff
--- 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))