From 2e0a74c6e80eccebf5e4eb326bb490b3d4b9152c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 6 Mar 2005 18:31:36 +0000 Subject: [PATCH] (jit-lock-stealth-fontify): When calling sit-for, make sure the current buffer is the expected one. --- lisp/jit-lock.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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)))))))))))))) -- 2.39.2