diff options
author | Simon Marshall <simon@gnu.org> | 1997-07-25 11:35:08 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1997-07-25 11:35:08 +0000 |
commit | 86c87ebc8c430e0419ff7a3bed6fe3fc1c5d2f08 (patch) | |
tree | b0759d303cde93e8e2b7c2fc4926206276ab3749 /lisp/lazy-lock.el | |
parent | d77c8526beea2148c4cd0ad716d4a78080192ad7 (diff) | |
download | emacs-86c87ebc8c430e0419ff7a3bed6fe3fc1c5d2f08.tar.gz |
Wrap minibuffer-auto-raise where nec. to stop frame raising.
Diffstat (limited to 'lisp/lazy-lock.el')
-rw-r--r-- | lisp/lazy-lock.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/lazy-lock.el b/lisp/lazy-lock.el index 10d1355849f..83f998dfd07 100644 --- a/lisp/lazy-lock.el +++ b/lisp/lazy-lock.el @@ -4,7 +4,7 @@ ;; Author: Simon Marshall <simon@gnu.ai.mit.edu> ;; Keywords: faces files -;; Version: 2.08.03 +;; Version: 2.08.04 ;;; This file is part of GNU Emacs. @@ -257,6 +257,7 @@ ;; 2.08--2.09: ;; - Removed `byte-*' variables from `eval-when-compile' (Erik Naggum hint) ;; - Made various wrapping `inhibit-point-motion-hooks' (Vinicius Latorre hint) +;; - Made `lazy-lock-fontify-after-idle' wrap `minibuffer-auto-raise' ;;; Code: @@ -313,7 +314,7 @@ The value returned is the value of the last form in BODY." ; "Submit via mail a bug report on lazy-lock.el." ; (interactive) ; (let ((reporter-prompt-for-summary-p t)) -; (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 2.08.03" +; (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 2.08.04" ; '(lazy-lock-minimum-size lazy-lock-defer-on-the-fly ; lazy-lock-defer-on-scrolling lazy-lock-defer-contextually ; lazy-lock-defer-time lazy-lock-stealth-time @@ -846,7 +847,8 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'." ;; Fontify all buffers that need it, stealthily while idle. (unless (or executing-kbd-macro (window-minibuffer-p (selected-window))) ;; Loop over all buffers, fontify stealthily for each if necessary. - (let ((buffers (buffer-list)) (continue t) message message-log-max) + (let ((buffers (buffer-list)) (continue t) + message message-log-max minibuffer-auto-raise) (save-excursion (do-while (and buffers continue) (set-buffer (car buffers)) |