(what-cursor-position): Show char in decimal, hex, octal.

diff --git a/lisp/simple.el b/lisp/simple.el
index 378c220f4b97c8a58c1884598d44060b54d6a36c..a9b8b0018d87064dc9ba666b345c389ddf374cf9 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -374,10 +374,10 @@ and the greater of them is not at the start of a line."
          (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.