From c52093761b6c2bb344c4d3424eb9c3e1f5f4aa6e Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Mon, 28 Jul 2003 06:27:09 +0000 Subject: [PATCH] (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 $. --- lisp/ChangeLog | 7 +++++++ lisp/progmodes/gud.el | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.2