Mercurial > emacs
changeset 54686:d74ae0505dad
(describe-property-list): Add `font-lock-face'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 03 Apr 2004 04:19:53 +0000 |
| parents | 06ef8e8088f4 |
| children | b003a6c2102f |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Sat Apr 03 04:19:13 2004 +0000 +++ b/lisp/descr-text.el Sat Apr 03 04:19:53 2004 +0000 @@ -99,8 +99,9 @@ (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 @@ (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 @@ :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))