From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Aug 1994 21:45:47 +0000 (+0000)
Subject: (compilation-set-window-height): Add save-excursion.
X-Git-Tag: emacs-19.34~7331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8205cbfc8f855e6d096636deb7965f485696bb23;p=emacs.git

(compilation-set-window-height): Add save-excursion.
---

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)))