/[emacs]/emacs/lisp/jit-lock.el
ViewVC logotype

Diff of /emacs/lisp/jit-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by jurta, Thu Mar 25 10:45:13 2004 UTC revision 1.36 by rms, Sun Mar 6 18:31:36 2005 UTC
# Line 415  This functions is called after Emacs has Line 415  This functions is called after Emacs has
415    (unless (or executing-kbd-macro    (unless (or executing-kbd-macro
416                (window-minibuffer-p (selected-window)))                (window-minibuffer-p (selected-window)))
417      (let ((buffers (buffer-list))      (let ((buffers (buffer-list))
418              (outer-buffer (current-buffer))
419            minibuffer-auto-raise            minibuffer-auto-raise
420            message-log-max)            message-log-max)
421        (with-local-quit        (with-local-quit
# Line 449  This functions is called after Emacs has Line 450  This functions is called after Emacs has
450                        (point (point-min)))                        (point (point-min)))
451                    (while (and (setq start                    (while (and (setq start
452                                      (jit-lock-stealth-chunk-start point))                                      (jit-lock-stealth-chunk-start point))
453                                (sit-for nice))                                ;; In case sit-for runs any timers,
454                                  ;; give them the expected current buffer.
455                                  (with-current-buffer outer-buffer
456                                    (sit-for nice)))
457    
458                      ;; fontify a block.                      ;; fontify a block.
459                      (jit-lock-fontify-now start (+ start jit-lock-chunk-size))                      (jit-lock-fontify-now start (+ start jit-lock-chunk-size))
# Line 461  This functions is called after Emacs has Line 465  This functions is called after Emacs has
465                      ;; Wait a little if load is too high.                      ;; Wait a little if load is too high.
466                      (when (and jit-lock-stealth-load                      (when (and jit-lock-stealth-load
467                                 (> (car (load-average)) jit-lock-stealth-load))                                 (> (car (load-average)) jit-lock-stealth-load))
468                        (sit-for (or jit-lock-stealth-time 30)))))))))))))                        ;; In case sit-for runs any timers,
469                          ;; give them the expected current buffer.
470                          (with-current-buffer outer-buffer
471                            (sit-for (or jit-lock-stealth-time 30))))))))))))))
472    
473    
474    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26