diff lisp/international/mule-diag.el @ 42362:daf469acc6d9

(describe-char-after): Describe the text properties of the char after point.

--- a/lisp/international/mule-diag.el	Fri Dec 28 02:55:13 2001 +0000
+++ b/lisp/international/mule-diag.el	Fri Dec 28 03:01:30 2001 +0000
@@ -528,6 +528,7 @@
       (error "No character at point"))
   (let* ((char (char-after pos))
 	 (charset (char-charset char))
+	 (props (text-properties-at pos))
 	 (composition (find-composition (point) nil nil t))
 	 (composed (if composition (buffer-substring (car composition)
 						     (nth 1 composition))))
@@ -620,6 +621,11 @@
 			       " ")
 		    ").\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)))
 	))))