gistfile1.el

;; centering source code window
(defadvice gud-display-line (after gud-dsplay-line-recenter activate)
  (let* ((buffer
          (with-current-buffer gud-comint-buffer
            (gud-find-file (ad-get-arg 0))))
         (window (and buffer
                      (or (get-buffer-window buffer)
                          (if (memq gud-minor-mode '(gdbmi gdba))
                              (or (if (get-buffer-window buffer 'visible)
                                      (display-buffer buffer nil 'visible))
                                  (unless (gdb-display-source-buffer buffer)
                                    (gdb-display-buffer buffer nil 'visible))))
                          (display-buffer buffer)))))
    (with-selected-window window (recenter))))