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

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ea6426b563..c7c9c2f07c6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-12-27  Richard M. Stallman  <rms@gnu.org>
 
+        * international/mule-diag.el (describe-char-after):
+        Describe the text properties of the char after point.
+
         * help.el (describe-key): Doc fix.
 
 2001-12-26  Markus Rost  <rost@math.ohio-state.edu>
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index f38ca92e897..a9288e10c7a 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -528,6 +528,7 @@ which font is being used for displaying the character."
       (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 @@ which font is being used for displaying the character."
                                " ")
                     ").\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)))
         ))))