# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1126228241 0
# Node ID 22f4c45c6f2f9b54f4df26e1c6cec84b43c28bdd
# Parent  0f39e01da672faa8aab282894bd72d1c90eaa5a3
(describe-property-list): Handle non-symbol prop names.

diff -r 0f39e01da672 -r 22f4c45c6f2f lisp/descr-text.el
--- a/lisp/descr-text.el	Thu Sep 08 22:57:16 2005 +0000
+++ b/lisp/descr-text.el	Fri Sep 09 01:10:41 2005 +0000
@@ -108,7 +108,8 @@
 		       (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)