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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc31b41c7ffd3a0f8906b194dc5e8be654db0809..bdb1b8417b0d1b1a25e1c411b015b6f9a7952051 100644 (file)
--- 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\e,Ad\e(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 45705fc37bc05e89ab3c313a4a71613d4851822c..b22639f03509fdecc170b70b1d32ce66c8ba6f68 100644 (file)
--- 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")))