* verilog-mode.el (verilog-font-grouping-keywords): Fix bug in the

grouping-keyword regular expression.
(verilog-font-lock-keywords): Allow users to toggle special
highlight of grouping-keywords.
(verilog-highlight-grouping-keywords): The toggle for special
highlighting of grouping keywords.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76a30b7522405361c1033aa5efcf1e06195d11da..22862b3e8bfbc0eeb9089410db729219e3c10282 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-03-03  Michael McNamara  <mac@mail.brushroad.com>
+
+       * verilog-mode.el (verilog-font-grouping-keywords): Fix bug in the
+       grouping-keyword regular expression.
+       (verilog-font-lock-keywords): Allow users to toggle special
+       highlight of grouping-keywords.
+       (verilog-highlight-grouping-keywords): The toggle for special
+       highlighting of grouping keywords.
+
 2008-03-02  Juri Linkov  <juri@jurta.org>
 
        * startup.el: Revert 2008-02-28 change that adds initial message

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 616cb9e9ee730304f43c5a18fc9b68be8e5167b9..78376f861f00fd7236d42eb00259a5a280276b08 100644 (file)
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -115,9 +115,9 @@
 ;;; Code:
 
 ;; This variable will always hold the version number of the mode
-(defconst verilog-mode-version "399"
+(defconst verilog-mode-version "404"
   "Version of this Verilog mode.")
-(defconst verilog-mode-release-date "2008-02-19-GNU"
+(defconst verilog-mode-release-date "2008-03-02-GNU"
   "Release date of this Verilog mode.")
 (defconst verilog-mode-release-emacs t
   "If non-nil, this version of Verilog mode was released with Emacs itself.")
@@ -531,6 +531,15 @@ to see the effect as font color choices are cached by Emacs."
   :type 'boolean)
 (put 'verilog-highlight-p1800-keywords 'safe-local-variable 'verilog-booleanp)
 
+(defcustom verilog-highlight-grouping-keywords nil
+  "*True means highlight grouping keywords 'begin' and 'end' more dramatically.
+If false, these words are in the font-lock-type-face; if True then they are in
+`verilog-font-lock-ams-face'. Some find that special highlighting on these
+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)
+
 (defcustom verilog-auto-endcomments t
   "*True means insert a comment /* ... */ after 'end's.
 The name of the function or case will be set between the braces."
@@ -1899,14 +1908,17 @@ See also `verilog-font-lock-extra-types'.")
         ;; Fontify all builtin keywords
         (concat "\\<\\(" verilog-font-keywords "\\|"
                       ;; And user/system tasks and functions
-                      "\\$[a-zA-Z][a-zA-Z0-9_\\$]*"
-                      "\\)\\>")
-        ;; Fontify all types
-        (cons (concat "\\(\\<" verilog-font-grouping-keywords "\\)\\>") 
-              'verilog-font-lock-ams-face)
-        (cons (concat "\\<\\(" verilog-type-font-keywords "\\)\\>") 
-              'font-lock-type-face)
-        ;; Fontify IEEE-P1800 keywords appropriately
+              "\\$[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 "\\)\\>")
+          'font-lock-type-face)
+    ;; Fontify IEEE-P1800 keywords appropriately
         (if verilog-highlight-p1800-keywords
             (cons (concat "\\<\\(" verilog-p1800-keywords "\\)\\>")
                   'verilog-font-lock-p1800-face)