108 |
(while properties |
(while properties |
109 |
(push (list (pop properties) (pop properties)) ret)) |
(push (list (pop properties) (pop properties)) ret)) |
110 |
ret) |
ret) |
111 |
(lambda (a b) (string< (nth 0 a) (nth 0 b))))) |
(lambda (a b) (string< (prin1-to-string (nth 0 a) t) |
112 |
|
(prin1-to-string (nth 0 b) t))))) |
113 |
(let ((key (nth 0 elt)) |
(let ((key (nth 0 elt)) |
114 |
(value (nth 1 elt))) |
(value (nth 1 elt))) |
115 |
(widget-insert (propertize (format " %-20s " key) |
(widget-insert (propertize (format " %-20s " key) |