From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 19 May 2005 00:12:37 +0000 (+0000)
Subject: (list-faces-display): Provide button when describe-face
X-Git-Tag: ttn-vms-21-2-B4~165
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2dade9c6789ca8a68fb86413e2a7ab7d197fa1e5;p=emacs.git

(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 6f8f3336450..c1a05d9dd05 100644
--- 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)))