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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/10/15 02:07:53

Index: lisp/progmodes/gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -b -r1.211 -r1.212
--- lisp/progmodes/gdb-ui.el    9 Oct 2007 08:52:43 -0000       1.211
+++ lisp/progmodes/gdb-ui.el    15 Oct 2007 02:07:51 -0000      1.212
@@ -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))