From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 19 May 2005 20:57:04 +0000 (+0000)
Subject: (list-faces-display): Make back button respect optional regexp arg.
X-Git-Tag: ttn-vms-21-2-B4~134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35a0a8aaebd5c58e4a55c376facac28855810b3a;p=emacs.git

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

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)))