From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 5 Feb 2002 18:05:32 +0000 (+0000)
Subject: (gud-refresh): Call recenter only after we are sure we
X-Git-Tag: ttn-vms-21-2-B4~16841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ff24607890b0212aae203b9e10cec005b207e05;p=emacs.git

(gud-refresh): Call recenter only after we are sure we
are in the right window.
---

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.