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

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))