From eab5a18b56628bd19def63ede4c50aa8f4512a4b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 1 Mar 2000 19:05:05 +0000 Subject: [PATCH] (list-faces-display): Supply help-echo with help-make-xrefs. --- lisp/faces.el | 6 ++++-- 1 file 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. -- 2.39.5