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

are in the right window.

diff --git a/lisp/gud.el b/lisp/gud.el
index b03f209905904088d3e263f8775bf07a62cce75d..b1f7ff1886d7505ff512e0ae95437444e66ad638 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -2335,9 +2335,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.