(gdb-info-breakpoints-custom): Don't throw error if no file is found.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index ef9ce2d7e73535d83f5cd2d9ef7cd589865cbae8..e1c87b884c89b8d01bbdc7fe572d0ec2a0845dd2 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1931,12 +1931,13 @@ static char *magick[] = {
                      (add-text-properties
                       (match-beginning 1) (match-end 1)
                       '(face font-lock-function-name-face)))
-                   (if (re-search-forward ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$")
+                   (if (re-search-forward
+                        ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$" nil t)
                        (let ((line (match-string 2))
                              (file (match-string 1)))
                          (add-text-properties bl el
-                                              '(mouse-face highlight
-                                                           help-echo "mouse-2, RET: visit breakpoint"))
+                              '(mouse-face highlight
+                                help-echo "mouse-2, RET: visit breakpoint"))
                          (unless (file-exists-p file)
                            (setq file (cdr (assoc bptno gdb-location-alist))))
                          (if (and file