# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1080211015 0
# Node ID 7a108b5784bb98317da9bf6c5b66ad1b3e93d9b8
# Parent  81243b364a79881a7450a917882a84215383a9ca
(describe-property-list): Add a button for `face' property
that calls `describe-face'.

diff -r 81243b364a79 -r 7a108b5784bb lisp/descr-text.el
--- a/lisp/descr-text.el	Thu Mar 25 10:35:07 2004 +0000
+++ b/lisp/descr-text.el	Thu Mar 25 10:36:55 2004 +0000
@@ -1,6 +1,6 @@
 ;;; descr-text.el --- describe text mode
 
-;; Copyright (c) 1994, 1995, 1996, 2001, 02, 03 Free Software Foundation, Inc.
+;; Copyright (c) 1994, 95, 96, 2001, 02, 03, 04 Free Software Foundation, Inc.
 
 ;; Author: Boris Goldowsky <boris@gnu.org>
 ;; Keywords: faces
@@ -99,8 +99,8 @@
 (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' property is made into a widget button that call
-`describe-text-category' when pushed."
+The `category' and `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 +110,7 @@
 			 (setq key (pop properties)
 			       val (pop properties)
 			       len 0)
-			 (unless (or (eq key 'category)
+			 (unless (or (memq key '(category face))
 				     (widgetp val))
 			   (setq val (pp-to-string val)
 				 len (length val)))
@@ -128,6 +128,11 @@
 			    :notify `(lambda (&rest ignore)
 				       (describe-text-category ',value))
 			    (format "%S" value)))
+            ((eq key 'face)
+	     (widget-create 'link
+			    :notify `(lambda (&rest ignore)
+				       (describe-face ',value))
+			    (format "%S" value)))
 	    ((widgetp value)
 	     (describe-text-widget value))
 	    (t