Mercurial > emacs
changeset 80540:e6565d8a8428
(gdb-info-breakpoints-custom): Don't throw error if no file is found.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 01 May 2008 08:43:56 +0000 |
| parents | 57088b813330 |
| children | 6452b45858e3 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Thu May 01 08:39:23 2008 +0000 +++ b/lisp/progmodes/gdb-ui.el Thu May 01 08:43:56 2008 +0000 @@ -1931,12 +1931,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