From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 May 2006 14:40:56 +0000 (+0000)
Subject: (gdb-script-font-lock-keywords): Use a stricter regexp for keywords.
X-Git-Tag: emacs-pretest-22.0.90~2464
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=237d230e4eb951ac94dc8f592dad5e946e53b951;p=emacs.git

(gdb-script-font-lock-keywords): Use a stricter regexp for keywords.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d589c693a0..8f3858c5e32 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/gud.el (gdb-script-font-lock-keywords): Use a stricter
+	regexp for keywords.
+
 2006-05-20  Masayuki FUJII  <boochang@m4.kcn.ne.jp>  (tiny change)
 
 	* dnd.el (dnd-get-local-file-name): Specify LITERAL in
@@ -8,8 +13,8 @@
 
 2006-05-20  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
-	* dnd.el (dnd-handle-one-url): Change 3rd arg ARG to URL.  Don't
-	unescape URL.
+	* dnd.el (dnd-handle-one-url): Change 3rd arg ARG to URL.
+	Don't unescape URL.
 	(dnd-get-local-file-name): Unescape URL on conversion to file name.
 
 	* x-dnd.el (x-dnd-handle-file-name): Encode and escape file names
@@ -68,14 +73,14 @@
 
 	* emacs-lisp/ewoc.el (ewoc--adjust): New func.
 	(ewoc--insert-new-node): Don't insert trailing newline.
-	Instead, adjust succesor nodes' start markers.
+	Instead, adjust successor nodes's start markers.
 	(ewoc--refresh-node): Delete all text from current node's start
-	marker to the next one's; adjust successor nodes' start markers.
+	marker to the next one's; adjust successor nodes's start markers.
 	(ewoc--create): Doc fixes.
 	(ewoc--refresh): Don't insert newline.
 	(ewoc--set-hf): Use `ewoc--set-buffer-bind-dll-let*'.
-	* pcvs.el (cvs-make-cvs-buffer): Specify
-	extra newline for ewoc's header and footer.
+	* pcvs.el (cvs-make-cvs-buffer):
+	Specify extra newline for ewoc's header and footer.
 	(cvs-update-header): Update initial header recognition.
 	Append newline to final header and footer values.
 	* pcvs-info.el (cvs-fileinfo-pp): Insert trailing newline.
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index d2e6cfc4ae4..bda30b196e1 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3166,7 +3166,7 @@ class of the file (using s to separate nested class ids)."
 (defvar gdb-script-font-lock-keywords
   '(("^define\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-function-name-face))
     ("\\$\\(\\w+\\)" (1 font-lock-variable-name-face))
-    ("^\\s-*\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-keyword-face))))
+    ("^\\s-*\\(\\w\\(\\w\\|\\s_\\)*\\)" (1 font-lock-keyword-face))))
 
 ;; FIXME: The keyword "end" associated with "document"
 ;; should have font-lock-keyword-face (currently font-lock-doc-face).