Index: lisp/faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.307
diff -u -r1.307 faces.el
--- lisp/faces.el	19 May 2005 00:12:37 -0000	1.307
+++ lisp/faces.el	19 May 2005 08:27:29 -0000
@@ -1184,7 +1184,7 @@
 	  (save-excursion
 	    (save-match-data
 	      (search-backward face-name)
-	      (setq help-xref-stack-item '(list-faces-display))
+	      (setq help-xref-stack-item `(list-faces-display ,regexp))
 	      (help-xref-button 0 'help-customize-face face)))
 	  (let ((beg (point))
 		(line-beg (line-beginning-position)))