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
4eb59450
Commit
4eb59450
authored
Apr 03, 2004
by
Juri Linkov
Browse files
(describe-property-list): Add `font-lock-face'.
parent
f16bcc9a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
lisp/descr-text.el
lisp/descr-text.el
+5
-4
No files found.
lisp/descr-text.el
View file @
4eb59450
...
...
@@ -99,8 +99,9 @@ if that value is non-nil."
(
defun
describe-property-list
(
properties
)
"Insert a description of PROPERTIES in the current buffer.
PROPERTIES should be a list of overlay or text properties.
The `category' and `face' properties are made into widget buttons
that call `describe-text-category' or `describe-face' when pushed."
The `category', `face' and `font-lock-face' properties are made
into widget buttons that call `describe-text-category' or
`describe-face' when pushed."
;; Sort the properties by the size of their value.
(
dolist
(
elt
(
sort
(
let
((
ret
nil
)
(
key
nil
)
...
...
@@ -110,7 +111,7 @@ that call `describe-text-category' or `describe-face' when pushed."
(
setq
key
(
pop
properties
)
val
(
pop
properties
)
len
0
)
(
unless
(
or
(
memq
key
'
(
category
face
))
(
unless
(
or
(
memq
key
'
(
category
face
font-lock-face
))
(
widgetp
val
))
(
setq
val
(
pp-to-string
val
)
len
(
length
val
)))
...
...
@@ -128,7 +129,7 @@ that call `describe-text-category' or `describe-face' when pushed."
:notify
`
(
lambda
(
&rest
ignore
)
(
describe-text-category
',value
))
(
format
"%S"
value
)))
((
e
q
key
'face
)
((
mem
q
key
'
(
face
font-lock-face
)
)
(
widget-create
'link
:notify
`
(
lambda
(
&rest
ignore
)
(
describe-face
',value
))
...
...
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