Commit a228c48e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 0e270d15
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>
......
......@@ -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)))
))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment