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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ea6426b563115f5473539e034bd6ede3a73cf44..c7c9c2f07c6b8e34024942b6ae984ef79b86813e 100644 (file)
--- 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 f38ca92e897b6966f5b2c8d4a9ad642214d63819..a9288e10c7a79f23f59186d5c948a57d29d7fb60 100644 (file)
--- 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)))
        ))))
 
 \f