procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make a gud error message more informative

Browse source 
* lisp/progmodes/gud.el (gud-jdb-marker-filter): Make the error
message more informative (bug#1282).
This commit is contained in:
Nick Roberts 2020-09-20 00:27:26 +02:00 • committed by Lars Ingebrigtsen
parent a2be81780e
commit 4d184fb07f
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/progmodes/gud.el
View file

@ -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))))