# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827988034 0
# Node ID 64c1d20f4b5fc14c7b7e21e4b6912e796bd505c0
# Parent  a51ddd17cdc4d0ca0ed10070f29bdb6395e472da
(list-text-properties-at): Display category's properties.

diff -r a51ddd17cdc4 -r 64c1d20f4b5f lisp/facemenu.el
--- a/lisp/facemenu.el	Thu Mar 28 04:40:02 1996 +0000
+++ b/lisp/facemenu.el	Thu Mar 28 04:40:34 1996 +0000
@@ -408,10 +408,12 @@
   "Pop up a buffer listing text-properties at LOCATION."
   (interactive "d")
   (let ((props (text-properties-at p))
+	category
 	str)
     (if (null props)
 	(message "None")
       (if (and (not (cdr (cdr props)))
+	       (not (eq (car props) 'category))
 	       (< (length (setq str (format "Text property at %d:  %s  %S"
 					    p (car props) (car (cdr props)))))
 		  (frame-width)))
@@ -419,9 +421,21 @@
 	(with-output-to-temp-buffer "*Text Properties*"
 	  (princ (format "Text properties at %d:\n\n" p))
 	  (while props
+	    (if (eq (car props) 'category)
+		(setq category (car (cdr props))))
 	    (princ (format "%-20s %S\n"
 			   (car props) (car (cdr props))))
-	    (setq props (cdr (cdr props)))))))))
+	    (setq props (cdr (cdr props))))
+	  (if category
+	      (progn
+		(setq props (symbol-plist category))
+		(princ (format "\nCategory %s:\n\n" category))
+		(while props
+		  (princ (format "%-20s %S\n"
+				 (car props) (car (cdr props))))
+		  (if (eq (car props) 'category)
+		      (setq category (car (cdr props))))
+		  (setq props (cdr (cdr props)))))))))))
 
 ;;;###autoload
 (defun facemenu-read-color (&optional prompt)