(describe-property-list): Handle non-symbol prop names.

This commit is contained in:
Richard M. Stallman 2005-09-09 01:10:41 +00:00
parent 49c560366c
commit d502fc0692

View file

@ -108,7 +108,8 @@ into widget buttons that call `describe-text-category' or
(while properties
(push (list (pop properties) (pop properties)) ret))
ret)
(lambda (a b) (string< (nth 0 a) (nth 0 b)))))
(lambda (a b) (string< (prin1-to-string (nth 0 a) t)
(prin1-to-string (nth 0 b) t)))))
(let ((key (nth 0 elt))
(value (nth 1 elt)))
(widget-insert (propertize (format " %-20s " key)