Mercurial > emacs
changeset 80270:e36e32d01703
(verilog-highlight-grouping-keywords):
Fix typo.
(verilog-type-font-keywords): Reindent.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 03 Mar 2008 20:31:04 +0000 |
| parents | bec081c42aa7 |
| children | f74b83c18a6a |
| files | lisp/ChangeLog lisp/progmodes/verilog-mode.el |
| diffstat | 2 files changed, 15 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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
--- 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)