mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(defgroup vhdl-related): Declare the members here rather than with

Browse source 
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.
This commit is contained in:
Markus Rost 2002-11-19 17:22:52 +00:00
parent 3582b6a3ef
commit a152344b14
2 changed files with 32 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/ChangeLog
View file

@ -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

50
lisp/progmodes/vhdl-mode.el
View file

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