[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, v [EMACS_22_BASE]

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Nick Roberts <nickrob>  07/10/11 04:23:30

Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.206.2.7
retrieving revision 1.206.2.8
diff -u -b -r1.206.2.7 -r1.206.2.8
--- gdb-ui.el   4 Oct 2007 07:44:28 -0000       1.206.2.7
+++ gdb-ui.el   11 Oct 2007 04:23:29 -0000      1.206.2.8
@@ -2120,6 +2120,7 @@
 
 (defun gdb-info-stack-custom ()
   (with-current-buffer (gdb-get-buffer 'gdb-stack-buffer)
+    (let (move-to)
     (save-excursion
       (unless (eq gdb-look-up-stack 'delete)
        (let ((buffer-read-only nil)
@@ -2139,9 +2140,11 @@
                    (progn
                      (or gdb-stack-position
                          (setq gdb-stack-position (make-marker)))
-                     (set-marker gdb-stack-position (point)))
+                       (set-marker gdb-stack-position (point))
+                       (setq move-to gdb-stack-position))
                  (put-text-property bl (+ bl 4)
-                                    'face '(:inverse-video t))))
+                                      'face '(:inverse-video t))
+                   (setq move-to bl)))
              (when (re-search-forward
                     (concat
                      (if (string-equal (match-string 1) "0") "" " in ")
@@ -2175,7 +2178,14 @@
                 (list (concat gdb-server-prefix "frame "
                               (match-string 1) "\n") 'gdb-set-hollow))
                (gdb-enqueue-input
-                (list (concat gdb-server-prefix "frame 0\n") 'ignore)))))))
+              (list (concat gdb-server-prefix "frame 0\n") 'ignore))))))
+      (when move-to
+       (let ((window (get-buffer-window (current-buffer) 0)))
+         (when window
+           (with-selected-window window
+             (goto-char move-to)
+             (unless (pos-visible-in-window-p)
+               (recenter '(center)))))))))
   (if (eq gdb-look-up-stack 'delete)
       (kill-buffer (gdb-get-buffer 'gdb-stack-buffer)))
   (setq gdb-look-up-stack nil))