(gdb-script-font-lock-keywords): Put `font-lock-function-name-face'

on a symbol which includes `-' like `hook-run'. Put
font-lock-variable-name-face  on a symbol starting with $.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd525e3bcb0..b47e08de7d1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-07-23  Masatake YAMATO  <jet@gyve.org>
+
+        * progmodes/gud.el (gdb-script-font-lock-keywords): 
+        Put `font-lock-function-name-face' on a symbol which includes
+        `-' like `hook-run'. Put font-lock-variable-name-face 
+        on a symbol starting with $.
+
 2003-07-27  Markus Rost  <rost@math.ohio-state.edu>
 
         * files.el (set-visited-file-name): Use truename for buffer-file-name.
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 695f884a6a7..349c78ce3d2 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2892,7 +2892,8 @@ class of the file (using s to separate nested class ids)."
     st))
 
 (defvar gdb-script-font-lock-keywords
-  '(("^define\\s-+\\(\\w+\\)" (1 font-lock-function-name-face))
+  '(("^define\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-function-name-face))
+    ("\\$\\(\\w+\\)" (1 font-lock-variable-name-face))
     ("^\\s-*\\([a-z]+\\)" (1 font-lock-keyword-face))))
 
 (defvar gdb-script-font-lock-syntactic-keywords