[Emacs-diffs] Changes to emacs/lisp/descr-text.el

[Colin Walters]

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.2 emacs/lisp/descr-text.el:1.3
*** emacs/lisp/descr-text.el:1.2        Wed May  1 05:45:42 2002
--- emacs/lisp/descr-text.el    Sat Jun  8 18:12:14 2002
***************
*** 98,107 ****
  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)))
        (cond ((eq key 'category)
             (widget-create 'link 
                            :notify `(lambda (&rest ignore)
--- 98,125 ----
  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."
!   ;; 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,118 ****
            ((widgetp value)
             (describe-text-widget value))
            (t
!            (describe-text-sexp value))))
!     (widget-insert "\n")
!     (setq properties (cdr (cdr properties)))))
  
  ;;; Describe-Text Commands.
  
--- 128,135 ----
            ((widgetp value)
             (describe-text-widget value))
            (t
!            (widget-insert value))))
!     (widget-insert "\n")))
  
  ;;; Describe-Text Commands.