mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(gdb-goto-breakpoint): Make buffer display file at breakpoint.

Browse Source
This commit is contained in:
Nick Roberts 2004-05-03 00:34:50 +00:00
parent 31b5ff3984
commit 294240c35d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/gdb-ui.el
View File

@ -1216,11 +1216,13 @@ current line."
(let ((line (match-string 2))
(file (match-string 1)))
(save-selected-window
(gdb-display-buffer (find-file-noselect
(if (file-exists-p file)
file
(expand-file-name file gdb-cdir))))
(goto-line (string-to-number line))))))
(let* ((buf (find-file-noselect (if (file-exists-p file)
file
(expand-file-name file gdb-cdir))))
(window (gdb-display-buffer buf)))
(with-current-buffer buf
(goto-line (string-to-number line))
(set-window-point window (point))))))))
(defun gdb-mouse-goto-breakpoint (event)
"Display the file in the source buffer at the selected breakpoint."