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

[Nick Roberts]

Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.37 emacs/lisp/gdb-ui.el:1.38
*** emacs/lisp/gdb-ui.el:1.37   Sun Jun 29 09:52:50 2003
--- emacs/lisp/gdb-ui.el        Mon Jul  7 14:53:42 2003
***************
*** 178,187 ****
        (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
    (gdb-enqueue-input (list "set height 0\n" 'ignore))
    ;; find source file and compilation directory here
!   (gdb-enqueue-input (list "server list main\n" 'ignore))     ; C program
    (gdb-enqueue-input (list "server list MAIN__\n" 'ignore))   ; Fortran 
program
!   (gdb-enqueue-input (list "server info source\n"
!                          'gdb-source-info))
    ;;
    (run-hooks 'gdba-mode-hook))
  
--- 178,186 ----
        (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
    (gdb-enqueue-input (list "set height 0\n" 'ignore))
    ;; find source file and compilation directory here
!   (gdb-enqueue-input (list "server list main\n"   'ignore))   ; C program
    (gdb-enqueue-input (list "server list MAIN__\n" 'ignore))   ; Fortran 
program
!   (gdb-enqueue-input (list "server info source\n" 'gdb-source-info))
    ;;
    (run-hooks 'gdba-mode-hook))
  
***************
*** 2085,2090 ****
--- 2084,2090 ----
    (gdb-display-breakpoints-buffer)
    (gdb-display-display-buffer)
    (delete-other-windows)
+   (switch-to-buffer gud-comint-buffer)
    (split-window nil ( / ( * (window-height) 3) 4))
    (split-window nil ( / (window-height) 3))
    (split-window-horizontally)
***************
*** 2183,2188 ****
--- 2183,2189 ----
        (setq gdb-main-file (match-string 0)))
      (setq gdb-view-source nil))
    (delete-other-windows)
+   (switch-to-buffer gud-comint-buffer)
    (if gdb-many-windows
        (gdb-setup-windows)
      (gdb-display-breakpoints-buffer)
***************
*** 2191,2197 ****
      (split-window)
      (other-window 1)
      (if gdb-view-source
!       (switch-to-buffer (gud-find-file gdb-main-file))
        (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))
        (gdb-invalidate-assembler))
      (setq gdb-source-window (get-buffer-window (current-buffer)))
--- 2192,2201 ----
      (split-window)
      (other-window 1)
      (if gdb-view-source
!       (switch-to-buffer
!        (if gud-last-last-frame
!          (gud-find-file (car gud-last-last-frame))
!        (gud-find-file gdb-main-file)))
        (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))
        (gdb-invalidate-assembler))
      (setq gdb-source-window (get-buffer-window (current-buffer)))