(gud-dbx-find-file): Find correct source file.

This commit is contained in:
Richard M. Stallman 1995-11-29 05:10:47 +00:00
parent 08cab81a5d
commit 8744b08b75

View file

@ -726,7 +726,7 @@ This works in IRIX 4, 5 and 6.")
(save-excursion
(let ((realf (gud-dbx-file-name f)))
(if realf
(let ((buf (find-file-noselect f)))
(let ((buf (find-file-noselect realf)))
(set-buffer buf)
(gud-make-debug-menu)
(local-set-key [menu-bar debug up] '("Up Stack" . gud-up))