(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 $.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd525e3bcb098cdbafeb8aa0b236433a9f129d5c..b47e08de7d1181fc2d3141b213f3fb322d34b15b 100644 (file)
--- 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 695f884a6a7a609f9d4ca286da06083b1e6e11e8..349c78ce3d21e34cad58429523e4f59f158d74df 100644 (file)
--- 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