Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eab5a18b
Commit
eab5a18b
authored
Mar 01, 2000
by
Dave Love
Browse files
(list-faces-display): Supply help-echo with
help-make-xrefs.
parent
2df636f4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/faces.el
lisp/faces.el
+4
-2
No files found.
lisp/faces.el
View file @
eab5a18b
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment