Make a gud error message more informative

* lisp/progmodes/gud.el (gud-jdb-marker-filter): Make the error
message more informative (bug#1282).

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 092d15983e57e3a19eb2533c3c41593651bdf2f0..84c473ddb7e81f1ed7e3b4213da8236c4011e9d6 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2358,17 +2358,17 @@ during jdb initialization depending on the value of
                (if (< n gud-jdb-lowest-stack-level)
                    (progn (setq gud-jdb-lowest-stack-level n) t)))
            t)
-         (if (setq file-found
-                   (gud-jdb-find-source (match-string 2 gud-marker-acc)))
-             (setq gud-last-frame
-                   (cons file-found
-                         (string-to-number
-                          (let
-                               ((numstr (match-string 4 gud-marker-acc)))
-                             (if (string-match "[.,]" numstr)
-                                 (replace-match "" nil nil numstr)
-                               numstr)))))
-           (message "Could not find source file.")))
+         (let ((class (match-string 2 gud-marker-acc)))
+           (if (setq file-found (gud-jdb-find-source class))
+               (setq gud-last-frame
+                     (cons file-found
+                           (string-to-number
+                            (let
+                                 ((numstr (match-string 4 gud-marker-acc)))
+                               (if (string-match "[.,]" numstr)
+                                   (replace-match "" nil nil numstr)
+                                 numstr)))))
+             (message "Could not find source file for %s" class))))
 
       ;; Set the accumulator to the remaining text.
       (setq gud-marker-acc (substring gud-marker-acc (match-end 0))))