From d5ec6bc04f30c07a62383e9d127c9cfe80303ad6 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 1 May 2008 08:43:56 +0000 Subject: [PATCH] (gdb-info-breakpoints-custom): Don't throw error if no file is found. --- lisp/progmodes/gdb-ui.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index ef9ce2d7e73..e1c87b884c8 100644 --- 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 -- 2.39.2