Mercurial > emacs

comparison lisp/progmodes/gdb-ui.el @ 94555:e33c27238da2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1139
author Miles Bader <miles@gnu.org>
date Fri, 02 May 2008 12:43:30 +0000
parents 3a51a1333f0f e6565d8a8428
children 52b7a8c22af5
comparison
equal deleted inserted replaced
94554:24dae001519e 94555:e33c27238da2
1948 (el (line-end-position))) 1948 (el (line-end-position)))
1949 (when (re-search-forward " in \\(.*\\) at" el t) 1949 (when (re-search-forward " in \\(.*\\) at" el t)
1950 (add-text-properties 1950 (add-text-properties
1951 (match-beginning 1) (match-end 1) 1951 (match-beginning 1) (match-end 1)
1952 '(face font-lock-function-name-face))) 1952 '(face font-lock-function-name-face)))
1953 (if (re-search-forward ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$") 1953 (if (re-search-forward
1954 ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$" nil t)
1954 (let ((line (match-string 2)) 1955 (let ((line (match-string 2))
1955 (file (match-string 1))) 1956 (file (match-string 1)))
1956 (add-text-properties bl el 1957 (add-text-properties bl el
1957 '(mouse-face highlight 1958 '(mouse-face highlight
1958 help-echo "mouse-2, RET: visit breakpoint")) 1959 help-echo "mouse-2, RET: visit breakpoint"))
1959 (unless (file-exists-p file) 1960 (unless (file-exists-p file)
1960 (setq file (cdr (assoc bptno gdb-location-alist)))) 1961 (setq file (cdr (assoc bptno gdb-location-alist))))
1961 (if (and file 1962 (if (and file
1962 (not (string-equal file "File not found"))) 1963 (not (string-equal file "File not found")))
1963 (with-current-buffer 1964 (with-current-buffer