From e38dff0c25c0a20ed9b85b687fe18c516472c577 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 Dec 1998 20:41:24 +0000 Subject: [PATCH] (what-cursor-position): Fix previous change. --- lisp/simple.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 4c314ad52e2..ce6f31d1fff 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -484,13 +484,15 @@ and the greater of them is not at the start of a line." (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. +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. -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. +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 @@ Each language environment may show different external character components." (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)) -- 2.39.2