Mercurial > emacs
changeset 53547:4aca4e9c37da
(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.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 08 Jan 2004 22:10:42 +0000 |
| parents | 09fdb86bd84e |
| children | 65fe9b0d6ac6 |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Thu Jan 08 22:09:12 2004 +0000 +++ b/lisp/gdb-ui.el Thu Jan 08 22:10:42 2004 +0000 @@ -172,7 +172,6 @@ (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 @@ 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)