Mercurial > emacs

comparison lisp/lazy-lock.el @ 36393:05bbe56d446f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lazy-lock-fontify-after-idle): Make sure to fontify in the right buffer.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 26 Feb 2001 13:07:27 +0000
parents 307f82858763
children 253f761ad37b
comparison
equal deleted inserted replaced
36392:88b90fa71d23 36393:05bbe56d446f
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
7 ;; Keywords: faces files 8 ;; Keywords: faces files
8 ;; Version: 2.11 9 ;; Version: 2.11
842 (if message 843 (if message
843 (message "Fontifying stealthily... %2d%% of %s" 844 (message "Fontifying stealthily... %2d%% of %s"
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)))))))
850 853
851 ;; 4. Special circumstances. 854 ;; 4. Special circumstances.