From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 8 Jan 2004 22:10:42 +0000 (+0000)
Subject: (gdb-ann3): Revert previous change. (don't use GDB command "set width 0").
X-Git-Tag: ttn-vms-21-2-B4~7966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5e047e9ee800a2fd8ba00ce69e1034a5d3d85f4;p=emacs.git

(gdb-ann3): Revert previous change. (don't use GDB command "set width 0").
(gdb-source-info): Allow for case of where compilation directory is not
recorded.
---

diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el
index 07e63af7566..6e469427e73 100644
--- a/lisp/gdb-ui.el
+++ b/lisp/gdb-ui.el
@@ -172,7 +172,6 @@ The following interactive lisp functions help control operation :
   (if (eq window-system 'w32)
       (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
   (gdb-enqueue-input (list "set height 0\n" 'ignore))
-  (gdb-enqueue-input (list "set width 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
@@ -1706,14 +1705,13 @@ This arrangement depends on the value of `gdb-many-windows'."
 buffers."
   (goto-char (point-min))
   (if (search-forward "directory is " nil t)
-      (progn
-	(if (looking-at "\\S-*:\\(\\S-*\\)")
-	    (setq gdb-cdir (match-string 1))
-	  (looking-at "\\S-*")
-	  (setq gdb-cdir (match-string 0)))
-	(search-forward "Located in ")
+      (if (looking-at "\\S-*:\\(\\S-*\\)")
+	  (setq gdb-cdir (match-string 1))
 	(looking-at "\\S-*")
-	(setq gdb-main-file (match-string 0)))
+	(setq gdb-cdir (match-string 0))))
+  (if (search-forward "Located in " nil t)
+      (if (looking-at "\\S-*")
+	  (setq gdb-main-file (match-string 0)))
     (setq gdb-view-source nil))
   (delete-other-windows)
   (switch-to-buffer gud-comint-buffer)