martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(jit-lock-stealth-fontify): When calling sit-for,

Browse Source 
make sure the current buffer is the expected one.
This commit is contained in:
Richard M. Stallman
2005-03-06 18:31:36 +00:00
parent 72287c23ef
commit 2e0a74c6e8
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/jit-lock.el
View File

@@ -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))))))))))))))