Mercurial > emacs
changeset 50985:1004156b8057
(compile-internal): Use with-current-buffer.
(compilation-set-window-height): Use save-selected-window.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 13 May 2003 21:37:28 +0000 |
| parents | 7e8592bdc9a1 |
| children | a122df88ba3f |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 9 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Tue May 13 21:15:44 2003 +0000 +++ b/lisp/progmodes/compile.el Tue May 13 21:37:28 2003 +0000 @@ -1,6 +1,6 @@ ;;; compile.el --- run compiler as inferior of Emacs, parse error messages -;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999, 2001 +;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999, 2001, 2003 ;; Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.org> @@ -1051,8 +1051,7 @@ (goto-char (point-max))) ;; Pop up the compilation buffer. (setq outwin (display-buffer outbuf nil t)) - (save-excursion - (set-buffer outbuf) + (with-current-buffer outbuf (compilation-mode name-of-mode) ;; In what way is it non-ergonomic ? -stef ;; (toggle-read-only 1) ;;; Non-ergonomic. @@ -1144,19 +1143,13 @@ ;; If window is alone in its frame, aside from a minibuffer, ;; don't change its height. (not (eq window (frame-root-window (window-frame window)))) - ;; This save-excursion prevents us from changing the current buffer, - ;; which might not be the same as the selected window's buffer. - (save-excursion - (let ((w (selected-window))) - (unwind-protect - (progn - (select-window window) - (enlarge-window (- compilation-window-height - (window-height)))) - ;; The enlarge-window above may have deleted W, if - ;; compilation-window-height is large enough. - (when (window-live-p w) - (select-window w))))))) + ;; This save-current-buffer prevents us from changing the current + ;; buffer, which might not be the same as the selected window's buffer. + (save-current-buffer + (save-selected-window + (select-window window) + (enlarge-window (- compilation-window-height + (window-height))))))) (defvar compilation-menu-map (let ((map (make-sparse-keymap "Errors")))