Mercurial > emacs
changeset 23963:c242e2dc93a9
(what-cursor-position): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Dec 1998 20:41:24 +0000 |
| parents | 5ab992b6ca59 |
| children | 11c5dd0a7bd7 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Dec 30 20:28:52 1998 +0000 +++ b/lisp/simple.el Wed Dec 30 20:41:24 1998 +0000 @@ -484,13 +484,15 @@ (defun what-cursor-position (&optional detail) "Print info on cursor position (on screen and within buffer). -With prefix argument, print detailed info of a character on cursor position. - -For the detailed information, Emacs internal character code, Emacs -internal character components (the character set name and position -code(s)), and the corresponding external character components (the -external character set name and external character code(s)) are shown -in this order. +Also describe the character after point, and give its character code +in octal, decimal and hex. For a non-ASCII multibyte character, +also give its encoding in the buffer's selected coding system, +if any. + +With prefix argument, print additional details about that character, +instead of the cursor position. This includes the character set name, +the codes that identify the character within that character set, +and the corresponding external character components. Each language environment may show different external character components." (interactive "P") @@ -525,10 +527,8 @@ (format "(0%o, %d, 0x%x, ext %s)" char char char encoding-string-hex) - (format "(%s, %s, %s)" - encoding-string-oct - encoding-string-dec - encoding-string-hex)))) + (format "(0%o, %d, 0x%x)" + char char char)))) (if detail (let* ((internal (split-char char)) (charset (char-charset char))