From a228c48e1aca2a910c6ba35e03a3c12097b00cee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Dec 2001 03:01:42 +0000 Subject: [PATCH] (describe-char-after): Describe the text properties of the char after point. --- lisp/ChangeLog | 3 +++ lisp/international/mule-diag.el | 6 ++++++ 2 files changed, 9 insertions(+) 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 + * 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 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))) )))) -- 2.39.2