From: Masatake YAMATO <jet@gyve.org>
Date: Mon, 28 Jul 2003 06:27:09 +0000 (+0000)
Subject: (gdb-script-font-lock-keywords): Put `font-lock-function-name-face'
X-Git-Tag: ttn-vms-21-2-B4~9225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c52093761b6c2bb344c4d3424eb9c3e1f5f4aa6e;p=emacs.git

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