# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1116536082 0
# Node ID bf6a0cd0e835ea0ee5d7602c85bf5d4451a121bc
# Parent  dcdd17e2f21d9c3ee8841daf876694b8d2a6ddad
(list-faces-display): Make back button respect optional regexp arg.

diff -r dcdd17e2f21d -r bf6a0cd0e835 lisp/faces.el
--- a/lisp/faces.el	Thu May 19 19:26:47 2005 +0000
+++ b/lisp/faces.el	Thu May 19 20:54:42 2005 +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)))