From 402adebf6941095fd63f6076352dcc380ff8413f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Aug 2006 18:30:13 +0000 Subject: [PATCH] (gdb-script-font-lock-syntactic-keywords): Correctly mark the end-of-docstring char. --- lisp/ChangeLog | 10 ++++++++++ lisp/progmodes/gud.el | 10 +++++++++- 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d6ca6734af4..1f6e469dd62 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-08-03 Stefan Monnier + + * progmodes/gud.el (gdb-script-font-lock-syntactic-keywords): + Correctly mark the end-of-docstring char. + 2006-08-03 Chong Yidong * simple.el (line-move-to-column): Constrain move-to-column to @@ -180,8 +185,13 @@ * tumme.el (tumme-backward-image): Add prefix argument. Add error when at first image. +<<<<<<< ChangeLog + (tumme-forward-image): Add prefix argument. + Add error when at last image. +======= (tumme-forward-image): Add prefix argument. Add error when at last image. +>>>>>>> 1.9899 2006-07-25 Stefan Monnier diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 97e54135a6f..84b40e8ba80 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -3180,7 +3180,15 @@ class of the file (using s to separate nested class ids)." (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")))) + ("^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)))))) (defun gdb-script-font-lock-syntactic-face (state) (cond -- 2.39.2