mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-goto-breakpoint): Use or instead of unless so nil isn't returned.

Browse source 
(gdb-setup-windows, gdb-restore-windows): Reset gdb-source-window.
This commit is contained in:
Nick Roberts 2006-05-06 00:34:11 +00:00
parent 9d74382f6f
commit 0745bc2e98
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/gdb-ui.el
View file

@ -1912,7 +1912,7 @@ static char *magick[] = {
(let* ((buffer (find-file-noselect
(if (file-exists-p file) file
(cdr (assoc bptno gdb-location-alist)))))
(window (unless (gdb-display-source-buffer buffer)
(window (or (gdb-display-source-buffer buffer)
(display-buffer buffer))))
(setq gdb-source-window window)
(with-current-buffer buffer
@ -2754,6 +2754,7 @@ corresponding to the mode line clicked."
;; Put buffer list in window if we
;; can't find a source file.
(list-buffers-noselect))))
(setq gdb-source-window (selected-window))
(when gdb-use-separate-io-buffer
(split-window-horizontally)
(other-window 1)
@ -2781,6 +2782,7 @@ This arrangement depends on the value of `gdb-many-windows'."
(if gud-last-last-frame
(gud-find-file (car gud-last-last-frame))
(gud-find-file gdb-main-file)))
(setq gdb-source-window (selected-window))
(other-window 1))))
(defun gdb-reset ()