Mercurial > emacs

comparison lisp/progmodes/gdb-ui.el @ 92324:516d1f9d5ddb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-info-stack-custom): Apply function-name-face correctly when user has "set print address off".
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 29 Feb 2008 00:47:13 +0000
parents f991f10f15ec
children 4054054dd212
comparison
equal deleted inserted replaced
92323:bc3bda50590a 92324:516d1f9d5ddb
2200 (set-marker gdb-stack-position (point)) 2200 (set-marker gdb-stack-position (point))
2201 (setq move-to gdb-stack-position)) 2201 (setq move-to gdb-stack-position))
2202 (put-text-property bl (+ bl 4) 2202 (put-text-property bl (+ bl 4)
2203 'face '(:inverse-video t)) 2203 'face '(:inverse-video t))
2204 (setq move-to bl))) 2204 (setq move-to bl)))
2205 (when (re-search-forward 2205 (when (re-search-forward "\\([^ ]+\\) (" el t)
2206 (concat
2207 (if (string-equal (match-string 1) "0") "" " in ")
2208 "\\([^ ]+\\) (") el t)
2209 (put-text-property (match-beginning 1) (match-end 1) 2206 (put-text-property (match-beginning 1) (match-end 1)
2210 'face font-lock-function-name-face) 2207 'face font-lock-function-name-face)
2211 (setq bl (match-end 0)) 2208 (setq bl (match-end 0))
2212 (while (re-search-forward "<\\([^>]+\\)>" el t) 2209 (while (re-search-forward "<\\([^>]+\\)>" el t)
2213 (put-text-property (match-beginning 1) (match-end 1) 2210 (put-text-property (match-beginning 1) (match-end 1)