From 8205cbfc8f855e6d096636deb7965f485696bb23 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 11 Aug 1994 21:45:47 +0000 Subject: [PATCH] (compilation-set-window-height): Add save-excursion. --- lisp/progmodes/compile.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 7ecc68aa5be..3c465702ac8 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -406,13 +406,16 @@ Returns the compilation buffer created." ;; 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)))) - (let ((w (selected-window))) - (unwind-protect - (progn - (select-window window) - (enlarge-window (- compilation-window-height - (window-height)))) - (select-window w))))) + ;; 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)))) + (select-window w)))))) (defvar compilation-minor-mode-map (let ((map (make-sparse-keymap)))