From a7ed3f6a4e19597af265970854714c8b7ca70e5e Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sat, 8 Jun 2002 22:12:57 +0000 Subject: [PATCH] (describe-char-after): Revert previous change. Just call `describe-text-properties' to describe text properties. --- lisp/international/mule-diag.el | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 2082734983d..6c34c748954 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -660,22 +660,8 @@ which font is being used for displaying the character." "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 -- 2.39.2