diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-28 04:40:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-28 04:40:34 +0000 |
| commit | 3f1bd9ca8de90d37de799103ffd87c08ec336522 (patch) | |
| tree | 6c2b9d99005ab94cd9df7ee11363af470a9b94aa | |
| parent | 42e947b4d4a623345b5ee69a3983a02ce4bef302 (diff) | |
| download | emacs-3f1bd9ca8de90d37de799103ffd87c08ec336522.tar.gz | |
(list-text-properties-at): Display category's properties.
| -rw-r--r-- | lisp/facemenu.el | 16 |
1 files changed, 15 insertions, 1 deletions
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) |