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

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

1 files changed, 24 insertions, 7 deletions

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 72a3009ebd3..d9e5d6f4282 100644
--- 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")))
 
 ;;; Describe-Text Commands.