diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2008-02-29 00:47:13 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2008-02-29 00:47:13 +0000 |
| commit | 707ae1522529494013bfac2fc4e34b229d7c0f88 (patch) | |
| tree | 2dca962da6454edf26c5f33029917eb2f850b23a /lisp/progmodes/gdb-ui.el | |
| parent | b25c4e28936d86d3b369f308a0d22ec71b1ac8e2 (diff) | |
| download | emacs-707ae1522529494013bfac2fc4e34b229d7c0f88.tar.gz | |
(gdb-info-stack-custom): Apply
function-name-face correctly when user has
"set print address off".
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index b701b472ce9..111f8903fd3 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -2202,10 +2202,7 @@ static char *magick[] = { (put-text-property bl (+ bl 4) 'face '(:inverse-video t)) (setq move-to bl))) - (when (re-search-forward - (concat - (if (string-equal (match-string 1) "0") "" " in ") - "\\([^ ]+\\) (") el t) + (when (re-search-forward "\\([^ ]+\\) (" el t) (put-text-property (match-beginning 1) (match-end 1) 'face font-lock-function-name-face) (setq bl (match-end 0)) |