Small gud.el patch

[David Hansen <david.hansen@gmx.net>]

[-- Attachment #1: Type: text/plain, Size: 201 bytes --]

Hello,

this patch fixes two problems:

1. Wrong coloring of the 'd' in 'end' (syntactic keywords
   gave the 'd' comment end syntax).

2. "end" after a "document" is now colored as a keyword.

David


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gud.diff --]
[-- Type: text/x-patch, Size: 844 bytes --]

--- /home/dhansen/cvs-src/emacs/lisp/progmodes/gud.el	2006-07-20 23:23:10.000000000 +0200
+++ gud.el	2006-08-03 17:18:52.000000000 +0200
@@ -3175,12 +3175,12 @@
     ("\\$\\(\\w+\\)" (1 font-lock-variable-name-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).
+(defun gdb-script-font-lock-end-of-document (limit)
+  (re-search-forward "\\(\n\\)end\\>" limit t))
+
 (defvar gdb-script-font-lock-syntactic-keywords
   '(("^document\\s-.*\\(\n\\)" (1 "< b"))
-    ;; It would be best to change the \n in front, but it's more difficult.
-    ("^en\\(d\\)\\>" (1 "> b"))))
+    (gdb-script-font-lock-end-of-document (1 "> b"))))
 
 (defun gdb-script-font-lock-syntactic-face (state)
   (cond

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel