diff options
| -rw-r--r-- | lisp/descr-text.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index e25d740b89b..5f410da17a7 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el | |||
| @@ -108,7 +108,8 @@ into widget buttons that call `describe-text-category' or | |||
| 108 | (while properties | 108 | (while properties |
| 109 | (push (list (pop properties) (pop properties)) ret)) | 109 | (push (list (pop properties) (pop properties)) ret)) |
| 110 | ret) | 110 | ret) |
| 111 | (lambda (a b) (string< (nth 0 a) (nth 0 b))))) | 111 | (lambda (a b) (string< (prin1-to-string (nth 0 a) t) |
| 112 | (prin1-to-string (nth 0 b) t))))) | ||
| 112 | (let ((key (nth 0 elt)) | 113 | (let ((key (nth 0 elt)) |
| 113 | (value (nth 1 elt))) | 114 | (value (nth 1 elt))) |
| 114 | (widget-insert (propertize (format " %-20s " key) | 115 | (widget-insert (propertize (format " %-20s " key) |