/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by pj, Mon Apr 22 15:59:04 2002 UTC revision 1.71 by walters, Tue May 21 06:05:39 2002 UTC
# Line 659  which font is being used for displaying Line 659  which font is being used for displaying
659                      ").\n"                      ").\n"
660                      "See the variable `reference-point-alist' for "                      "See the variable `reference-point-alist' for "
661                      "the meaning of the rule.\n")))                      "the meaning of the rule.\n")))
662          (if props          (when props
663              (insert "\nText properties\n"))            (insert "\nText properties\n"))
664          (while props          ;; List the text properties, sorted by the size of the printed
665            (insert (format "  %s: %s" (car props) (cadr props)))          ;; representation of their value.  This makes it easier to
666            (setq props (cddr props)))          ;; read.
667            (dolist (elt (sort (let ((ret nil))
668                                 (while props
669                                   (push (cons (pop props)
670                                               (prin1-to-string (pop props)))
671                                         ret))
672                                 ret)
673                               (lambda (a b)
674                                 (< (length (cdr a))
675                                    (length (cdr b))))))
676              (insert (format "  %s: %s\n" (car elt) (cdr elt))))
677          ))))          ))))
678    
679    

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26