bug#1282: Improvement to gud.el error message

[Michael Ernst]

This patch improves an error message in gud.el, by indicating the name of
the file that cannot be found.

                    -Michael Ernst


diff -u -b -r --exclude=CVS --exclude=.bzr --exclude=.hg --exclude=.hgtags 
--exclude=.svn /DS/home-0/mernst/.synchronized/gud.el-orig 
/DS/home-0/mernst/.synchronized/gud.el-patched
--- /DS/home-0/mernst/.synchronized/gud.el-orig 2008-10-25 11:28:35.918786020 
+0200
+++ /DS/home-0/mernst/.synchronized/gud.el-patched      2008-10-25 
11:28:12.635390729 +0200
@@ -2223,8 +2223,9 @@
                (if (< n gud-jdb-lowest-stack-level)
                    (progn (setq gud-jdb-lowest-stack-level n) t)))
            t)
+         (let ((filename (match-string 2 gud-marker-acc)))
          (if (setq file-found
-                   (gud-jdb-find-source (match-string 2 gud-marker-acc)))
+                     (gud-jdb-find-source filename))
              (setq gud-last-frame
                    (cons file-found
                          (string-to-number
@@ -2233,7 +2234,7 @@
                              (if (string-match "[.,]" numstr)
                                  (replace-match "" nil nil numstr)
                                numstr)))))
-           (message "Could not find source file.")))
+             (message "Could not find source file %s" filename))))
 
       ;; Set the accumulator to the remaining text.
       (setq gud-marker-acc (substring gud-marker-acc (match-end 0))))

Diff finished.  Fri Oct 31 05:54:35 2008