(dcl-font-lock-keywords): Add underscore to "f$ lexicals" regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50177e9a44603112460e7cc90363c88538aa0c29..19ee85f30827e4e2ebeac9ff39c9193a3cc27580 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-21  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * progmodes/dcl-mode.el (dcl-font-lock-keywords):
+       Add underscore to "f$ lexicals" regexp.
+
 2005-03-17  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * progmodes/dcl-mode.el (dcl-calc-cont-indent-relative): Doc fix.

diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 4b2cefb402b308af868283f29bcfb3b3a227c7b7..f323a24e49295fcbf18fb57659c237c2aa50f8fe 100644 (file)
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -78,7 +78,7 @@
 (defvar dcl-font-lock-keywords
   '(("\\<\\(if\\|then\\|else\\|endif\\)\\>"
      1 font-lock-keyword-face)
-    ("\\<f[$][a-z]+\\>"
+    ("\\<f[$][a-z_]+\\>"
      0 font-lock-builtin-face)
     ("[.]\\(eq\\|not\\|or\\|and\\|lt\\|gt\\|le\\|ge\\|eqs\\|nes\\)[.]"
      0 font-lock-builtin-face))