From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 Sep 2005 01:10:41 +0000 (+0000)
Subject: (describe-property-list): Handle non-symbol prop names.
X-Git-Tag: emacs-pretest-22.0.90~7221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d502fc069259daaea123cda1a413de56d78f7004;p=emacs.git

(describe-property-list): Handle non-symbol prop names.
---

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)