diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2020-09-20 00:27:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-20 00:27:26 +0200 |
| commit | 4d184fb07f543d96c0a3a40480a0d8b86c472931 (patch) | |
| tree | 083b04c169cc3983450bc05a7a2d4f5b1819e302 | |
| parent | a2be81780ef466f6007a8a5ec909106c5f8aebf0 (diff) | |
| download | emacs-4d184fb07f543d96c0a3a40480a0d8b86c472931.tar.gz emacs-4d184fb07f543d96c0a3a40480a0d8b86c472931.tar.bz2 emacs-4d184fb07f543d96c0a3a40480a0d8b86c472931.zip | |
Make a gud error message more informative
* lisp/progmodes/gud.el (gud-jdb-marker-filter): Make the error
message more informative (bug#1282).
| -rw-r--r-- | lisp/progmodes/gud.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 092d15983e5..84c473ddb7e 100644 --- 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)))) |