diff options
| author | Simon Marshall | 1997-07-25 11:35:08 +0000 |
|---|---|---|
| committer | Simon Marshall | 1997-07-25 11:35:08 +0000 |
| commit | 86c87ebc8c430e0419ff7a3bed6fe3fc1c5d2f08 (patch) | |
| tree | b0759d303cde93e8e2b7c2fc4926206276ab3749 | |
| parent | d77c8526beea2148c4cd0ad716d4a78080192ad7 (diff) | |
| download | emacs-86c87ebc8c430e0419ff7a3bed6fe3fc1c5d2f08.tar.gz emacs-86c87ebc8c430e0419ff7a3bed6fe3fc1c5d2f08.zip | |
Wrap minibuffer-auto-raise where nec. to stop frame raising.
| -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 @@ | |||
| 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 | ||
| @@ -257,6 +257,7 @@ | |||
| 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 | ||
| @@ -313,7 +314,7 @@ The value returned is the value of the last form in BODY." | |||
| 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 |
| @@ -846,7 +847,8 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'." | |||
| 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)) |