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

are in the right window.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8f68e1e0fb..b2b7ef7e12b 100644
--- 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,Bm(Bk  <Pavel@Janik.cz>
 
         * cus-start.el (x-use-underline-position-properties):
diff --git a/lisp/gud.el b/lisp/gud.el
index 28f8233322f..13acc233690 100644
--- 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))
 
 ;;; 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.