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

is called to take user back to  the list of faces.
This commit is contained in:
Nick Roberts 2005-05-19 00:12:37 +00:00
parent 639ec7659c
commit 2dade9c678

View file

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