Mercurial > emacs
changeset 14901:64c1d20f4b5f
(list-text-properties-at): Display category's properties.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Mar 1996 04:40:34 +0000 |
| parents | a51ddd17cdc4 |
| children | 6dc4dee167eb |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)