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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4429d86..95a7632 100644 (file)
--- 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 c1a05d9..74a8a1c 100644 (file)
--- 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)))