(list-faces-display): Make back button respect optional regexp arg.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4429d86da0b..95a763245a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-20  Matt Hodges  <MPHodges@member.fsf.org>
+
+        * faces.el (list-faces-display): Make back button respect optional
+        regexp arg.
+
 2005-05-19  Juanma Barranquero  <lekktu@gmail.com>
 
         * calculator.el (calculator-radix-grouping-mode)
diff --git a/lisp/faces.el b/lisp/faces.el
index c1a05d9dd05..74a8a1cbb47 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1184,7 +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))
+              (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)))