From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 29 Feb 2008 00:47:13 +0000 (+0000)
Subject: (gdb-info-stack-custom): Apply
X-Git-Tag: emacs-pretest-23.0.90~7579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=707ae1522529494013bfac2fc4e34b229d7c0f88;p=emacs.git

(gdb-info-stack-custom): Apply
function-name-face correctly when user has
"set print address off".
---

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))