From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 10 Feb 2007 20:21:28 +0000 (+0000)
Subject: (gdb-script-font-lock-syntactic-keywords): Improve comments.
X-Git-Tag: emacs-pretest-22.0.94~314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b0be7fc5021d27eb80a6923016b25ea59f140c0;p=emacs.git

(gdb-script-font-lock-syntactic-keywords): Improve comments.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index b9de6fab9bb..312b7187225 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3177,20 +3177,25 @@ class of the file (using s to separate nested class ids)."
     ("\\$\\(\\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).
 (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.
     ("^end\\>"
-     (0 (progn
-          (unless (eq (match-beginning 0) (point-min))
-            (put-text-property (1- (match-beginning 0)) (match-beginning 0)
-                               'syntax-table (eval-when-compile
-                                               (string-to-syntax "> b")))
-            (put-text-property (1- (match-beginning 0)) (match-end 0)
-                               'font-lock-multiline t)
-            nil))))))
+     (0 (unless (eq (match-beginning 0) (point-min))
+          ;; We change the \n in front, which is more difficult, but results
+          ;; in better highlighting.  If the doc is empty, the single \n is
+          ;; both the beginning and the end of the docstring, which can't be
+          ;; expressed in syntax-tables.  Instead, we place the "> b" after
+          ;; placing the "< b", so the start marker is overwritten by the
+          ;; termination marker and in the end Emacs simply considers that
+          ;; there's no docstring at all, which is fine.
+          (put-text-property (1- (match-beginning 0)) (match-beginning 0)
+                             'syntax-table (eval-when-compile
+                                             (string-to-syntax "> b")))
+          ;; Make sure that rehighlighting the previous line won't erase our
+          ;; syntax-table property.  
+          (put-text-property (1- (match-beginning 0)) (match-end 0)
+                             'font-lock-multiline t)
+          nil)))))
 
 (defun gdb-script-font-lock-syntactic-face (state)
   (cond