diff options
| author | Nick Roberts | 2008-02-29 00:47:13 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-02-29 00:47:13 +0000 |
| commit | 707ae1522529494013bfac2fc4e34b229d7c0f88 (patch) | |
| tree | 2dca962da6454edf26c5f33029917eb2f850b23a | |
| parent | b25c4e28936d86d3b369f308a0d22ec71b1ac8e2 (diff) | |
| download | emacs-707ae1522529494013bfac2fc4e34b229d7c0f88.tar.gz emacs-707ae1522529494013bfac2fc4e34b229d7c0f88.zip | |
(gdb-info-stack-custom): Apply
function-name-face correctly when user has
"set print address off".
| -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[] = { | |||
| 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)) |