Mercurial > emacs

comparison lisp/progmodes/gdb-ui.el @ 80540:e6565d8a8428

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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