# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1116461557 0
# Node ID e371d32adcb5c784254fb31923e771398bc4618e
# Parent  e4728ae2ecf873df3192b2923d4cb62e63c65a5d
(list-faces-display): Provide button when describe-face
is called to take user back to  the list of faces.

diff -r e4728ae2ecf8 -r e371d32adcb5 lisp/faces.el
--- a/lisp/faces.el	Thu May 19 00:11:48 2005 +0000
+++ b/lisp/faces.el	Thu May 19 00:12:37 2005 +0000
@@ -1184,6 +1184,7 @@
 	  (save-excursion
 	    (save-match-data
 	      (search-backward face-name)
+	      (setq help-xref-stack-item '(list-faces-display))
 	      (help-xref-button 0 'help-customize-face face)))
 	  (let ((beg (point))
 		(line-beg (line-beginning-position)))