mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-ann3): Revert previous change. (don't use GDB command "set width 0").

Browse source 
(gdb-source-info): Allow for case of where compilation directory is not
recorded.
This commit is contained in:
Nick Roberts 2004-01-08 22:10:42 +00:00
parent 7f0edca43f
commit c5e047e9ee
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gdb-ui.el
View file

@ -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)