From 9e12f1424ebede7700fbcf07c4e11608daed2c74 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Mon, 21 Mar 2005 07:48:32 +0000
Subject: [PATCH] (dcl-font-lock-keywords): Add underscore to "f$ lexicals"
 regexp.

---
 lisp/ChangeLog             | 5 +++++
 lisp/progmodes/dcl-mode.el | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6cef881ec5..1c2ca29642a 100644
--- 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-12  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* progmodes/dcl-mode.el (dcl-mode-syntax-table):
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index 4b2cefb402b..f323a24e492 100644
--- 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))
-- 
2.39.5