Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge from emacs--rel--22

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1139
This commit is contained in:
Miles Bader 2008-05-02 12:43:30 +00:00
commit bfab7c6ec7
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

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

@ -1950,12 +1950,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