From: Dave Love <fx@gnu.org>
Date: Wed, 1 Mar 2000 19:05:05 +0000 (+0000)
Subject: (list-faces-display): Supply help-echo with
X-Git-Tag: emacs-pretest-21.0.90~4826
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eab5a18b56628bd19def63ede4c50aa8f4512a4b;p=emacs.git

(list-faces-display): Supply help-echo with
help-make-xrefs.
---

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.