(list-faces-display): Provide button when describe-face

is called to take user back to  the list of faces.

diff --git a/lisp/faces.el b/lisp/faces.el
index 6f8f3336450b225d4462682d74d01d1e01f6a89c..c1a05d9dd050a6bc83db96012d17675aae1b88c1 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1184,6 +1184,7 @@ arg, prompt for a regular expression."
          (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)))