From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 7 Apr 2006 11:20:39 +0000 (+0000)
Subject: (gdb-init-2): Set current filename using
X-Git-Tag: emacs-pretest-22.0.90~3291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d91dd05aab77cb9bd8dafcb62aaae1613916cd9;p=emacs.git

(gdb-init-2): Set current filename using
GDB list command without argument for greater generality.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index b969515e2fc..9f527d12f9f 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -571,9 +571,9 @@ With arg, use separate IO iff arg is positive."
 	   'gdb-set-gud-minor-mode-existing-buffers-1))
     (setq gdb-locals-font-lock-keywords gdb-locals-font-lock-keywords-2))
 
-  ;; 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
+  ;; Find source file and compilation directory here.
+  ;; Works for C, C++, Fortran and Ada but not Java (GDB 6.4)
+  (gdb-enqueue-input (list "server list\n" 'ignore))
   (gdb-enqueue-input (list "server info source\n" 'gdb-source-info))
 
   (run-hooks 'gdba-mode-hook))