# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1080965993 0
# Node ID d74ae0505dad29180345891a4c354562b2877000
# Parent  06ef8e8088f490d1116537728ef784f0910f76f6
(describe-property-list): Add `font-lock-face'.

diff -r 06ef8e8088f4 -r d74ae0505dad lisp/descr-text.el
--- 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))