diff lisp/simple.el @ 10352:cc26982277e4

(what-cursor-position): Show char in decimal, hex, octal.
author Richard M. Stallman <rms@gnu.org>
date Fri, 06 Jan 1995 20:48:57 +0000
parents e34cbd5276bd
children 3c447e2caef3
line wrap: on
line diff
--- 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.