# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789425337 0
# Node ID cc26982277e42b572de3016c05c8f3e501147607
# Parent  e34cbd5276bd94d1ca062a41af6b6fb6bd0172ee
(what-cursor-position): Show char in decimal, hex, octal.

diff -r e34cbd5276bd -r cc26982277e4 lisp/simple.el
--- a/lisp/simple.el	Thu Jan 05 23:53:01 1995 +0000
+++ b/lisp/simple.el	Fri Jan 06 20:48:57 1995 +0000
@@ -374,10 +374,10 @@
 	  (message "point=%d of %d(%d%%)  column %d %s"
 		   pos total percent col hscroll))
       (if (or (/= beg 1) (/= end (1+ total)))
-	  (message "Char: %s (0%o)  point=%d of %d(%d%%) <%d - %d>  column %d %s"
-		   (single-key-description char) char pos total percent beg end col hscroll)
-	(message "Char: %s (0%o)  point=%d of %d(%d%%)  column %d %s"
-		 (single-key-description char) char pos total percent col hscroll)))))
+	  (message "Char: %s (0%o, %d, 0x%x)  point=%d of %d(%d%%) <%d - %d>  column %d %s"
+		   (single-key-description char) char char char pos total percent beg end col hscroll)
+	(message "Char: %s (0%o, %d, 0x%x)  point=%d of %d(%d%%)  column %d %s"
+		 (single-key-description char) char char char pos total percent col hscroll)))))
 
 (defun fundamental-mode ()
   "Major mode not specialized for anything in particular.