From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 1 May 2008 08:43:56 +0000 (+0000)
Subject: (gdb-info-breakpoints-custom): Don't throw error if no file is found.
X-Git-Tag: emacs-pretest-22.2.90~157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5ec6bc04f30c07a62383e9d127c9cfe80303ad6;p=emacs.git

(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 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