mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

(verilog-highlight-grouping-keywords):

Browse Source 
Fix typo.
(verilog-type-font-keywords): Reindent.
This commit is contained in:
Dan Nicolaescu 2008-03-03 20:31:04 +00:00
parent 70f6d79619
commit b1d0fc8669
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-03-03 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/verilog-mode.el (verilog-highlight-grouping-keywords):
Fix typo.
(verilog-type-font-keywords): Reindent.
2008-03-03 Michael McNamara <mac@mail.brushroad.com>
* verilog-mode.el (verilog-font-grouping-keywords): Fix bug in the

18
lisp/progmodes/verilog-mode.el
View File

@ -538,7 +538,7 @@ If false, these words are in the font-lock-type-face; if True then they are in
grouping constructs allow the structure of the code to be understood at a glance."
:group 'verilog-mode-indent
:type 'boolean)
(put 'verilog-highlight-p1800-keywords 'safe-local-variable verilog-booleanp)
(put 'verilog-highlight-grouping-keywords 'safe-local-variable 'verilog-booleanp)
(defcustom verilog-auto-endcomments t
"*True means insert a comment /* ... */ after 'end's.
@ -1910,15 +1910,15 @@ See also `verilog-font-lock-extra-types'.")
;; And user/system tasks and functions
"\\$[a-zA-Z][a-zA-Z0-9_\\$]*"
"\\)\\>")
;; Fontify all types
(if verilog-highlight-grouping-keywords
(cons (concat "\\<\\(" verilog-font-grouping-keywords "\\)\\>")
'verilog-font-lock-ams-face)
(cons (concat "\\<\\(" verilog-font-grouping-keywords "\\)\\>")
'font-lock-type-face))
(cons (concat "\\<\\(" verilog-type-font-keywords "\\)\\>")
;; Fontify all types
(if verilog-highlight-grouping-keywords
(cons (concat "\\<\\(" verilog-font-grouping-keywords "\\)\\>")
'verilog-font-lock-ams-face)
(cons (concat "\\<\\(" verilog-font-grouping-keywords "\\)\\>")
'font-lock-type-face))
(cons (concat "\\<\\(" verilog-type-font-keywords "\\)\\>")
'font-lock-type-face)
;; Fontify IEEE-P1800 keywords appropriately
;; Fontify IEEE-P1800 keywords appropriately
(if verilog-highlight-p1800-keywords
(cons (concat "\\<\\(" verilog-p1800-keywords "\\)\\>")
'verilog-font-lock-p1800-face)