procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Nick Roberts 2008-05-01 08:43:56 +00:00
parent 29e97c1ade
commit d5ec6bc04f
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/gdb-ui.el
View file

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