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

Reply via email to