From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Wed, 12 May 2004 18:46:24 +0000 (+0000)
Subject: (compilation-set-window-height): Use save-excursion to protect against misplaced... 
X-Git-Tag: ttn-vms-21-2-B4~6255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e52264f1c7c859e35123120d92876d01ad1d350;p=emacs.git

(compilation-set-window-height): Use save-excursion to protect against misplaced marker.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc31b41c7ff..bdb1b8417b0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-12  Daniel Pfeiffer  <occitan@esperanto.org>
+
+	* progmodes/compile.el (compilation-set-window-height): Use
+	save-excursion to protect against misplaced marker.
+
 2004-05-12  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* custom.el (defface): Document that type can have value gtk.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 45705fc37bc..b22639f0350 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -990,8 +990,9 @@ exited abnormally with code %d\n"
 	 ;; buffer, which might not be the same as the selected window's buffer.
 	 (save-current-buffer
 	   (save-selected-window
-	     (select-window window)
-	     (enlarge-window (- height (window-height))))))))
+	     (save-excursion
+	       (select-window window)
+	       (enlarge-window (- height (window-height)))))))))
 
 (defvar compilation-menu-map
   (let ((map (make-sparse-keymap "Errors")))