[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el |
Date: |
Sat, 08 Jun 2002 18:12:57 -0400 |
Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.72
emacs/lisp/international/mule-diag.el:1.73
*** emacs/lisp/international/mule-diag.el:1.72 Sat Jun 8 17:03:00 2002
--- emacs/lisp/international/mule-diag.el Sat Jun 8 18:12:57 2002
***************
*** 660,681 ****
"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" (propertize (symbol-name (car elt))
! 'font-lock-face 'italic)
! (cdr elt))))))))
;;; CODING-SYSTEM
--- 660,667 ----
"See the variable `reference-point-alist' for "
"the meaning of the rule.\n")))
(when props
! (insert "\nText properties\n")
! (describe-text-properties props))))))
;;; CODING-SYSTEM