diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/descr-text.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index abc0d588a14..30ef3dcf05e 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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)) |