Show
Ignore:
Timestamp:
09/18/06 20:48:14 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/jit-lock.el

    r4161 r4166  
    398398           ;; jit-lock-after-change-extend-region-functions. 
    399399           (when (< start orig-start) 
    400              (lexical-let ((start start) 
    401                            (orig-start orig-start) 
    402                            (buf (current-buffer))) 
    403                (run-with-timer 
    404                 0 nil (lambda () 
    405                         (with-current-buffer buf 
    406                           (with-buffer-prepared-for-jit-lock 
    407                               (put-text-property start orig-start 
    408                                                  'fontified t))))))) 
     400             (run-with-timer 0 nil 'jit-lock-fontify-again 
     401                             (current-buffer) start orig-start)) 
    409402 
    410403           ;; Find the start of the next chunk, if any. 
    411404           (setq start (text-property-any next end 'fontified nil)))))))) 
     405 
     406(defun jit-lock-fontify-again (buf start end) 
     407  "Fontify in buffer BUF from START to END." 
     408  (with-current-buffer buf 
     409    (with-buffer-prepared-for-jit-lock 
     410     (put-text-property start end 'fontified t)))) 
     411 
    412412 
    413413