Subject: bug#1282: Improvement to gud.el error message

From: Michael Ernst <[email-masked]>
Date: Fri, 31 Oct 2008 05:54:47 +0100

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