(list-faces-display): Supply help-echo with

help-make-xrefs.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index c719b0a2f87..4bdc107275f 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -985,14 +985,16 @@ The sample text is a string that comes from the variable
           (save-excursion
             (save-match-data
               (search-backward face-name)
-              (help-xref-button 0 #'customize-face face-name)))
+              (help-xref-button 0 #'customize-face face-name
+                                "mouse-2: customize this face")))
           (let ((beg (point)))
             (insert list-faces-sample-text)
             ;; Hyperlink to a help buffer for the face.
             (save-excursion
               (save-match-data
                 (search-backward list-faces-sample-text)
-                (help-xref-button 0 #'describe-face face)))
+                (help-xref-button 0 #'describe-face face
+                                  "mouse-2: describe this face")))
             (insert "\n")
             (put-text-property beg (1- (point)) 'face face)
             ;; If the sample text has multiple lines, line up all of them.