# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1209732210 0
# Node ID e33c27238da25b9deee90d428ca36ab9f24ac14f
# Parent  24dae001519e6659c724e932959ff65d5d9fa4e3# Parent  c147a137d94dcef7a26e154a7721a798f7c554f6
Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1139

diff -r 24dae001519e -r e33c27238da2 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 02 12:12:44 2008 +0000
+++ b/lisp/ChangeLog	Fri May 02 12:43:30 2008 +0000
@@ -1,3 +1,8 @@
+2008-05-02  Nick Roberts  <nickrob@snap.net.nz>
+
+	* progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Don't
+	throw error if no file is found.
+
 2008-05-02  Juanma Barranquero  <lekktu@gmail.com>
 
 	* vc-hooks.el (vc-call, vc-state): Fix typos in docstrings.
diff -r 24dae001519e -r e33c27238da2 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Fri May 02 12:12:44 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Fri May 02 12:43:30 2008 +0000
@@ -1950,12 +1950,13 @@
 		      (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