From 25a4509f70a3f9280dc2d6cd61366a28ecef10e9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Mar 1996 04:40:34 +0000 Subject: [PATCH] (list-text-properties-at): Display category's properties. --- lisp/facemenu.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index f1d92932cb5..220b0f1fd92 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -408,10 +408,12 @@ These special properties include `invisible', `intangible' and `read-only'." "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 @@ These special properties include `invisible', `intangible' and `read-only'." (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) -- 2.39.2