(gud-refresh): Call recenter only after we are sure we

are in the right window.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8f68e1e0fbb3e8675a14f23bd01c80d1a5ea459..b2b7ef7e12bc8af9387266d1876fa95ec2061582 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-05  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * gud.el (gud-refresh): Call recenter only after we are sure we
+       are in the right window.
+
 2002-02-05  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * cus-start.el (x-use-underline-position-properties):

diff --git a/lisp/gud.el b/lisp/gud.el
index 28f8233322f253f3011c0946f6e0b82fbb16f36c..13acc2336905d91ae62f7c8ce1da1460b3d5f232 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -2512,9 +2512,9 @@ Obeying it means displaying in another window the specified file and line."
 (defun gud-refresh (&optional arg)
   "Fix up a possibly garbled display, and redraw the arrow."
   (interactive "P")
-  (recenter arg)
   (or gud-last-frame (setq gud-last-frame gud-last-last-frame))
-  (gud-display-frame))
+  (gud-display-frame)
+  (recenter arg))
 \f
 ;;; Code for parsing expressions out of C code.  The single entry point is
 ;;; find-c-expr, which tries to return an lvalue expression from around point.