Mercurial > emacs
comparison lisp/lazy-lock.el @ 18980:dec0f8a4fd02
Wrap minibuffer-auto-raise where nec. to stop frame raising.
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Fri, 25 Jul 1997 11:35:08 +0000 |
parents | 9e96c09a1466 |
children | 0ccfc7a0662f |
comparison
equal
deleted
inserted
replaced
18979:ec31453a9196 | 18980:dec0f8a4fd02 |
---|---|
2 | 2 |
3 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Simon Marshall <simon@gnu.ai.mit.edu> | 5 ;; Author: Simon Marshall <simon@gnu.ai.mit.edu> |
6 ;; Keywords: faces files | 6 ;; Keywords: faces files |
7 ;; Version: 2.08.03 | 7 ;; Version: 2.08.04 |
8 | 8 |
9 ;;; This file is part of GNU Emacs. | 9 ;;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
255 ;; - Made `save-buffer-state' wrap `inhibit-point-motion-hooks' | 255 ;; - Made `save-buffer-state' wrap `inhibit-point-motion-hooks' |
256 ;; - Added Custom support | 256 ;; - Added Custom support |
257 ;; 2.08--2.09: | 257 ;; 2.08--2.09: |
258 ;; - Removed `byte-*' variables from `eval-when-compile' (Erik Naggum hint) | 258 ;; - Removed `byte-*' variables from `eval-when-compile' (Erik Naggum hint) |
259 ;; - Made various wrapping `inhibit-point-motion-hooks' (Vinicius Latorre hint) | 259 ;; - Made various wrapping `inhibit-point-motion-hooks' (Vinicius Latorre hint) |
260 ;; - Made `lazy-lock-fontify-after-idle' wrap `minibuffer-auto-raise' | |
260 | 261 |
261 ;;; Code: | 262 ;;; Code: |
262 | 263 |
263 (require 'font-lock) | 264 (require 'font-lock) |
264 | 265 |
311 | 312 |
312 ;(defun lazy-lock-submit-bug-report () | 313 ;(defun lazy-lock-submit-bug-report () |
313 ; "Submit via mail a bug report on lazy-lock.el." | 314 ; "Submit via mail a bug report on lazy-lock.el." |
314 ; (interactive) | 315 ; (interactive) |
315 ; (let ((reporter-prompt-for-summary-p t)) | 316 ; (let ((reporter-prompt-for-summary-p t)) |
316 ; (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 2.08.03" | 317 ; (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 2.08.04" |
317 ; '(lazy-lock-minimum-size lazy-lock-defer-on-the-fly | 318 ; '(lazy-lock-minimum-size lazy-lock-defer-on-the-fly |
318 ; lazy-lock-defer-on-scrolling lazy-lock-defer-contextually | 319 ; lazy-lock-defer-on-scrolling lazy-lock-defer-contextually |
319 ; lazy-lock-defer-time lazy-lock-stealth-time | 320 ; lazy-lock-defer-time lazy-lock-stealth-time |
320 ; lazy-lock-stealth-load lazy-lock-stealth-nice lazy-lock-stealth-lines | 321 ; lazy-lock-stealth-load lazy-lock-stealth-nice lazy-lock-stealth-lines |
321 ; lazy-lock-stealth-verbose) | 322 ; lazy-lock-stealth-verbose) |
844 (defun lazy-lock-fontify-after-idle () | 845 (defun lazy-lock-fontify-after-idle () |
845 ;; Called from `timer-idle-list'. | 846 ;; Called from `timer-idle-list'. |
846 ;; Fontify all buffers that need it, stealthily while idle. | 847 ;; Fontify all buffers that need it, stealthily while idle. |
847 (unless (or executing-kbd-macro (window-minibuffer-p (selected-window))) | 848 (unless (or executing-kbd-macro (window-minibuffer-p (selected-window))) |
848 ;; Loop over all buffers, fontify stealthily for each if necessary. | 849 ;; Loop over all buffers, fontify stealthily for each if necessary. |
849 (let ((buffers (buffer-list)) (continue t) message message-log-max) | 850 (let ((buffers (buffer-list)) (continue t) |
851 message message-log-max minibuffer-auto-raise) | |
850 (save-excursion | 852 (save-excursion |
851 (do-while (and buffers continue) | 853 (do-while (and buffers continue) |
852 (set-buffer (car buffers)) | 854 (set-buffer (car buffers)) |
853 (if (not (and lazy-lock-mode (lazy-lock-unfontified-p))) | 855 (if (not (and lazy-lock-mode (lazy-lock-unfontified-p))) |
854 (setq continue (not (input-pending-p))) | 856 (setq continue (not (input-pending-p))) |