Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 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 | 4b0ab9e918cd |
children | 76e75acf7e4e e33c27238da2 |
comparison
equal
deleted
inserted
replaced
80539:57088b813330 | 80540:e6565d8a8428 |
---|---|
1929 (el (line-end-position))) | 1929 (el (line-end-position))) |
1930 (when (re-search-forward " in \\(.*\\) at" el t) | 1930 (when (re-search-forward " in \\(.*\\) at" el t) |
1931 (add-text-properties | 1931 (add-text-properties |
1932 (match-beginning 1) (match-end 1) | 1932 (match-beginning 1) (match-end 1) |
1933 '(face font-lock-function-name-face))) | 1933 '(face font-lock-function-name-face))) |
1934 (if (re-search-forward ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$") | 1934 (if (re-search-forward |
1935 ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$" nil t) | |
1935 (let ((line (match-string 2)) | 1936 (let ((line (match-string 2)) |
1936 (file (match-string 1))) | 1937 (file (match-string 1))) |
1937 (add-text-properties bl el | 1938 (add-text-properties bl el |
1938 '(mouse-face highlight | 1939 '(mouse-face highlight |
1939 help-echo "mouse-2, RET: visit breakpoint")) | 1940 help-echo "mouse-2, RET: visit breakpoint")) |
1940 (unless (file-exists-p file) | 1941 (unless (file-exists-p file) |
1941 (setq file (cdr (assoc bptno gdb-location-alist)))) | 1942 (setq file (cdr (assoc bptno gdb-location-alist)))) |
1942 (if (and file | 1943 (if (and file |
1943 (not (string-equal file "File not found"))) | 1944 (not (string-equal file "File not found"))) |
1944 (with-current-buffer | 1945 (with-current-buffer |