# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915050484 0
# Node ID c242e2dc93a90180acebcaf90f42376d2efe105f
# Parent  5ab992b6ca595e433c0e560a4093c5c6ff409f98
(what-cursor-position): Fix previous change.

diff -r 5ab992b6ca59 -r c242e2dc93a9 lisp/simple.el
--- 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))