# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1059373629 0
# Node ID 5d60b6e20fbdb765445e609675d32b0d9da94c3c
# Parent  e9ebec7774ab3ecb9413d26a9dbe760a2d5cb2b9
(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 -r e9ebec7774ab -r 5d60b6e20fbd lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jul 27 19:54:09 2003 +0000
+++ b/lisp/ChangeLog	Mon Jul 28 06:27:09 2003 +0000
@@ -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 -r e9ebec7774ab -r 5d60b6e20fbd lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Sun Jul 27 19:54:09 2003 +0000
+++ b/lisp/progmodes/gud.el	Mon Jul 28 06:27:09 2003 +0000
@@ -2892,7 +2892,8 @@
     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