diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2004-01-08 22:10:42 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2004-01-08 22:10:42 +0000 |
| commit | c5e047e9ee800a2fd8ba00ce69e1034a5d3d85f4 (patch) | |
| tree | 588bcb1041e3e87b8492d8fab1b1d93cc5fea060 /lisp/gdb-ui.el | |
| parent | 7f0edca43fff13b69195bd08023e6d2ebd5b2491 (diff) | |
| download | emacs-c5e047e9ee800a2fd8ba00ce69e1034a5d3d85f4.tar.gz | |
(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.
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 14 |
1 files changed, 6 insertions, 8 deletions
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) |