Mercurial > emacs
changeset 42362:daf469acc6d9
(describe-char-after): Describe the text properties of the char after point.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 28 Dec 2001 03:01:30 +0000 |
| parents | 071388e0e754 |
| children | 2c10a073bcbf |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))) ))))