[Emacs-diffs] Changes to emacs/lisp/progmodes/verilog-mode.el, v [EMACS_22_BASE]

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Dan Nicolaescu <dann>   08/03/03 08:52:53

Index: progmodes/verilog-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/verilog-mode.el,v
retrieving revision 1.1.2.23
retrieving revision 1.1.2.24
diff -u -b -r1.1.2.23 -r1.1.2.24
--- progmodes/verilog-mode.el   1 Mar 2008 19:15:59 -0000       1.1.2.23
+++ progmodes/verilog-mode.el   3 Mar 2008 08:52:47 -0000       1.1.2.24
@@ -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 @@
   :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."
@@ -1902,8 +1911,11 @@
                       "\\$[a-zA-Z][a-zA-Z0-9_\\$]*"
                       "\\)\\>")
         ;; Fontify all types
-        (cons (concat "\\(\\<" verilog-font-grouping-keywords "\\)\\>") 
+     (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