(describe-property-list): Handle non-symbol prop names.
This commit is contained in:
parent
49c560366c
commit
d502fc0692
1 changed files with 2 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue