From: Richard M. Stallman Date: Sun, 6 Mar 2005 18:31:36 +0000 (+0000) Subject: (jit-lock-stealth-fontify): When calling sit-for, X-Git-Tag: ttn-vms-21-2-B4~1929 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e0a74c6e80eccebf5e4eb326bb490b3d4b9152c;p=emacs.git (jit-lock-stealth-fontify): When calling sit-for, make sure the current buffer is the expected one. --- diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index 43c8457c80b..fe64d871d96 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -415,6 +415,7 @@ This functions is called after Emacs has been idle for (unless (or executing-kbd-macro (window-minibuffer-p (selected-window))) (let ((buffers (buffer-list)) + (outer-buffer (current-buffer)) minibuffer-auto-raise message-log-max) (with-local-quit @@ -449,7 +450,10 @@ This functions is called after Emacs has been idle for (point (point-min))) (while (and (setq start (jit-lock-stealth-chunk-start point)) - (sit-for nice)) + ;; In case sit-for runs any timers, + ;; give them the expected current buffer. + (with-current-buffer outer-buffer + (sit-for nice))) ;; fontify a block. (jit-lock-fontify-now start (+ start jit-lock-chunk-size)) @@ -461,7 +465,10 @@ This functions is called after Emacs has been idle for ;; Wait a little if load is too high. (when (and jit-lock-stealth-load (> (car (load-average)) jit-lock-stealth-load)) - (sit-for (or jit-lock-stealth-time 30))))))))))))) + ;; In case sit-for runs any timers, + ;; give them the expected current buffer. + (with-current-buffer outer-buffer + (sit-for (or jit-lock-stealth-time 30))))))))))))))