Mercurial > emacs
changeset 27928:0ffb33d1514a
(list-faces-display): Supply help-echo with
help-make-xrefs.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 01 Mar 2000 19:05:05 +0000 |
| parents | 82d519ae67da |
| children | c3e8689514c1 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Wed Mar 01 12:56:09 2000 +0000 +++ b/lisp/faces.el Wed Mar 01 19:05:05 2000 +0000 @@ -985,14 +985,16 @@ (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.