branch: externals/realgud commit d79a090a2ed761422dbcac1cae8075d1801e8395 Author: rocky <ro...@gnu.org> Commit: rocky <ro...@gnu.org>
Handle location not found in bp-list for breakpoint buffer --- realgud/common/buffer/breakpoint.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/realgud/common/buffer/breakpoint.el b/realgud/common/buffer/breakpoint.el index 23cb047..caf504d 100644 --- a/realgud/common/buffer/breakpoint.el +++ b/realgud/common/buffer/breakpoint.el @@ -286,12 +286,13 @@ filename, and line number as text properties." (setq loc (seq-find (lambda (elt) (equal brkpt-num (realgud-loc-num elt))) bp-list)) (setq brkpt-num-pos (match-beginning brkpt-group-pat)) (cl-pushnew brkpt-num-pos brkpt-num-pos-list) - (add-text-properties (match-beginning brkpt-group-pat) - (match-end brkpt-group-pat) - (list 'mouse-face 'highlight - 'help-echo "mouse-2: goto this brkpt" - 'mark (realgud-loc-marker loc)) - string) + (when loc + (add-text-properties (match-beginning brkpt-group-pat) + (match-end brkpt-group-pat) + (list 'mouse-face 'highlight + 'help-echo "mouse-2: goto this brkpt" + 'mark (realgud-loc-marker loc)) + string)) ) ; else (progn