mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(gdb-script-font-lock-syntactic-keywords):

Browse Source 
Correctly mark the end-of-docstring char.
This commit is contained in:
Stefan Monnier 2006-08-03 18:30:13 +00:00
parent 8dea3e2baf
commit 402adebf69
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-08-03 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/gud.el (gdb-script-font-lock-syntactic-keywords):
Correctly mark the end-of-docstring char.
2006-08-03 Chong Yidong <cyd@stupidchicken.com>
* 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 <monnier@iro.umontreal.ca>

10
lisp/progmodes/gud.el
View File

@ -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