[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Dave Love]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.70 
emacs/lisp/international/mule-diag.el:1.71
*** emacs/lisp/international/mule-diag.el:1.70  Mon Apr 22 11:59:04 2002
--- emacs/lisp/international/mule-diag.el       Tue May 21 02:05:39 2002
***************
*** 659,669 ****
                    ").\n"
                    "See the variable `reference-point-alist' for "
                    "the meaning of the rule.\n")))
!       (if props
!           (insert "\nText properties\n"))
!       (while props
!         (insert (format "  %s: %s" (car props) (cadr props)))
!         (setq props (cddr props)))
        ))))
  
  
--- 659,679 ----
                    ").\n"
                    "See the variable `reference-point-alist' for "
                    "the meaning of the rule.\n")))
!       (when props
!         (insert "\nText properties\n"))
!       ;; List the text properties, sorted by the size of the printed
!       ;; representation of their value.  This makes it easier to
!       ;; read.
!       (dolist (elt (sort (let ((ret nil))
!                            (while props
!                              (push (cons (pop props)
!                                          (prin1-to-string (pop props)))
!                                    ret))
!                            ret)
!                          (lambda (a b)
!                            (< (length (cdr a))
!                               (length (cdr b))))))
!         (insert (format "  %s: %s\n" (car elt) (cdr elt))))
        ))))