From d502fc069259daaea123cda1a413de56d78f7004 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 9 Sep 2005 01:10:41 +0000 Subject: [PATCH] (describe-property-list): Handle non-symbol prop names. --- lisp/descr-text.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 (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) -- 2.39.5