From b1d0fc86691f60c187264b6bb90def845a62611c Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 3 Mar 2008 20:31:04 +0000 Subject: [PATCH] (verilog-highlight-grouping-keywords): Fix typo. (verilog-type-font-keywords): Reindent. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/verilog-mode.el | 18 +++++++++--------- 2 files changed, 15 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 22862b3e8bf..7dfe88d5778 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 78376f861f0..b24ccdc5bad 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -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) -- 2.39.2