# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 817621847 0
# Node ID 283d4d3e54605fbf1c620b405d5d694ef6a49529
# Parent  6c5099f8a87237f4f4060e1e6a6433978c646cd6
(gud-dbx-find-file): Find correct source file.

diff -r 6c5099f8a872 -r 283d4d3e5460 lisp/gud.el
--- a/lisp/gud.el	Tue Nov 28 19:25:35 1995 +0000
+++ b/lisp/gud.el	Wed Nov 29 05:10:47 1995 +0000
@@ -726,7 +726,7 @@
   (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))