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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d589c693a0a1f99bcdd2b58da13b70ee25e0841..8f3858c5e32e5051b4c51e2ba2fc13e6f801f577 100644 (file)
--- 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 d2e6cfc4ae4649b6da1f93c623ccd12f5264af1b..bda30b196e1aee4faedfbe73063061558a945c7d 100644 (file)
--- 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).