# HG changeset patch # User Dan Nicolaescu # Date 1204576264 0 # Node ID e36e32d01703285796242bbb6be78c20c410571b # Parent bec081c42aa701d5cbff700ed509aa8c8286821f (verilog-highlight-grouping-keywords): Fix typo. (verilog-type-font-keywords): Reindent. diff -r bec081c42aa7 -r e36e32d01703 lisp/ChangeLog --- a/lisp/ChangeLog Mon Mar 03 09:25:30 2008 +0000 +++ b/lisp/ChangeLog Mon Mar 03 20:31:04 2008 +0000 @@ -1,3 +1,9 @@ +2008-03-03 Dan Nicolaescu + + * progmodes/verilog-mode.el (verilog-highlight-grouping-keywords): + Fix typo. + (verilog-type-font-keywords): Reindent. + 2008-03-03 Michael McNamara * verilog-mode.el (verilog-font-grouping-keywords): Fix bug in the diff -r bec081c42aa7 -r e36e32d01703 lisp/progmodes/verilog-mode.el --- a/lisp/progmodes/verilog-mode.el Mon Mar 03 09:25:30 2008 +0000 +++ b/lisp/progmodes/verilog-mode.el Mon Mar 03 20:31:04 2008 +0000 @@ -538,7 +538,7 @@ 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 @@ ;; 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)