Show
Ignore:
Timestamp:
08/10/06 11:19:54 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/progmodes/gud.el

    r4111 r4140  
    31813181  '(("^document\\s-.*\\(\n\\)" (1 "< b")) 
    31823182    ;; It would be best to change the \n in front, but it's more difficult. 
    3183     ("^en\\(d\\)\\>" (1 "> b")))) 
     3183    ("^end\\>" 
     3184     (0 (progn 
     3185          (unless (eq (match-beginning 0) (point-min)) 
     3186            (put-text-property (1- (match-beginning 0)) (match-beginning 0) 
     3187                               'syntax-table (eval-when-compile 
     3188                                               (string-to-syntax "> b"))) 
     3189            (put-text-property (1- (match-beginning 0)) (match-end 0) 
     3190                               'font-lock-multiline t) 
     3191            nil)))))) 
    31843192 
    31853193(defun gdb-script-font-lock-syntactic-face (state)