diff options
| -rw-r--r-- | lisp/lazy-lock.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/lazy-lock.el b/lisp/lazy-lock.el index b8a11dc349a..d5597d38a40 100644 --- a/lisp/lazy-lock.el +++ b/lisp/lazy-lock.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode. | 1 | ;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Simon Marshall <simon@gnu.org> | 6 | ;; Author: Simon Marshall <simon@gnu.org> |
| 6 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
| @@ -844,6 +845,8 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'." | |||
| 844 | (lazy-lock-percent-fontified) (buffer-name)) | 845 | (lazy-lock-percent-fontified) (buffer-name)) |
| 845 | (message "Fontifying stealthily...") | 846 | (message "Fontifying stealthily...") |
| 846 | (setq message t))) | 847 | (setq message t))) |
| 848 | ;; Current buffer may have changed during `sit-for'. | ||
| 849 | (set-buffer (car buffers)) | ||
| 847 | (lazy-lock-fontify-chunk) | 850 | (lazy-lock-fontify-chunk) |
| 848 | (setq continue (sit-for (or lazy-lock-stealth-nice 0))))))) | 851 | (setq continue (sit-for (or lazy-lock-stealth-nice 0))))))) |
| 849 | (setq buffers (cdr buffers))))))) | 852 | (setq buffers (cdr buffers))))))) |