procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(describe-property-list): Add `font-lock-face'.

Browse source
This commit is contained in:
Juri Linkov 2004-04-03 04:19:53 +00:00
parent f16bcc9ae4
commit 4eb5945040
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/descr-text.el
View file

@ -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)))
((eq key 'face)
((memq key '(face font-lock-face))
(widget-create 'link
:notify `(lambda (&rest ignore)
(describe-face ',value))