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

help-make-xrefs.

diff --git a/lisp/faces.el b/lisp/faces.el
index c719b0a2f87d238b5473a1d985bc992f78daa323..4bdc107275f3f2f4c28e809bd217728ccddf2c79 100644 (file)
--- 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.