Commit 25a4509f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(list-text-properties-at): Display category's properties.

parent b2bc29b1
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment