Mercurial > emacs

changeset 45698:85a6d63fb018

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char-after): Revert previous change. Just call `describe-text-properties' to describe text properties.
author Colin Walters <walters@gnu.org>
date Sat, 08 Jun 2002 22:12:57 +0000
parents 234b16d90545
children 5204b7681bdc
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Sat Jun 08 22:12:14 2002 +0000
+++ b/lisp/international/mule-diag.el	Sat Jun 08 22:12:57 2002 +0000
@@ -660,22 +660,8 @@
 		    "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))))))))
+	  (insert "\nText properties\n")
+	  (describe-text-properties props))))))
 
 
 ;;; CODING-SYSTEM