528 |
(error "No character at point")) |
(error "No character at point")) |
529 |
(let* ((char (char-after pos)) |
(let* ((char (char-after pos)) |
530 |
(charset (char-charset char)) |
(charset (char-charset char)) |
531 |
|
(props (text-properties-at pos)) |
532 |
(composition (find-composition (point) nil nil t)) |
(composition (find-composition (point) nil nil t)) |
533 |
(composed (if composition (buffer-substring (car composition) |
(composed (if composition (buffer-substring (car composition) |
534 |
(nth 1 composition)))) |
(nth 1 composition)))) |
621 |
" ") |
" ") |
622 |
").\n" |
").\n" |
623 |
"See the variable `reference-point-alist' for the meaning of the rule.\n"))) |
"See the variable `reference-point-alist' for the meaning of the rule.\n"))) |
624 |
|
(if props |
625 |
|
(insert "\nText properties\n")) |
626 |
|
(while props |
627 |
|
(insert (format " %s: %s" (car props) (cadr props))) |
628 |
|
(setq props (cddr props))) |
629 |
)))) |
)))) |
630 |
|
|
631 |
|
|