(describe-text-properties): Sort the output by the size of the values.

Put `font-lock-face' property on property names.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 72a3009ebd3b6c66d68dab6ecc3ebb858b95f489..d9e5d6f428251bf0f9b2cfd089d32d55bd71330a 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -98,10 +98,28 @@ if that value is non-nil."
 PROPERTIES should be a list of overlay or text properties.
 The `category' property is made into a widget button that call 
 `describe-text-category' when pushed."
-  (while properties
-    (widget-insert (format "  %-20s " (car properties)))
-    (let ((key (nth 0 properties))
-         (value (nth 1 properties)))
+  ;; Sort the properties by the size of their value.
+  (dolist (elt (sort (let ((ret nil)
+                          (key nil)
+                          (val nil)
+                          (len nil))
+                      (while properties
+                        (setq key (pop properties)
+                              val (pop properties)
+                              len 0)
+                        (unless (or (eq key 'category)
+                                    (widgetp val))
+                          (setq val (pp-to-string val)
+                                len (length val)))
+                        (push (list key val len) ret))
+                      ret)
+                    (lambda (a b)
+                      (< (nth 2 a)
+                         (nth 2 b)))))
+    (let ((key (nth 0 elt))
+         (value (nth 1 elt)))
+      (widget-insert (propertize (format "  %-20s" key)
+                                'font-lock-face 'italic))
       (cond ((eq key 'category)
             (widget-create 'link 
                            :notify `(lambda (&rest ignore)
@@ -110,9 +128,8 @@ The `category' property is made into a widget button that call
            ((widgetp value)
             (describe-text-widget value))
            (t
-            (describe-text-sexp value))))
-    (widget-insert "\n")
-    (setq properties (cdr (cdr properties)))))
+            (widget-insert value))))
+    (widget-insert "\n")))
 \f
 ;;; Describe-Text Commands.