procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2001-12-28 03:01:42 +00:00
parent 0e270d1540
commit a228c48e1a
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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>

6
lisp/international/mule-diag.el
View file

@ -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)))
))))