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 | 0f0c7744351e6c8a2f48a9804746bc8538b89d5c (patch) | |
tree | 18f3bbe6aeedb5b94b1745b9d9b83f9d2f9aaea9 /lisp/progmodes/gdb-ui.el | |
parent | f388e211522dc3fe81cb4c2a3232142a27da0e63 (diff) | |
download | emacs-0f0c7744351e6c8a2f48a9804746bc8538b89d5c.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)) |