(verilog-highlight-grouping-keywords):

Fix typo.
(verilog-type-font-keywords): Reindent.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22862b3e8bfbc0eeb9089410db729219e3c10282..7dfe88d57786cfd02a94d5c7ba04c4072d4bec77 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 78376f861f00fd7236d42eb00259a5a280276b08..b24ccdc5bad66584f0df9652fde3d3b48bd02663 100644 (file)
--- 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)