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

2a83421c · Richard M. Stallman · 34c31301 · 2a83421c
Commit 2a83421c authored Jan 06, 1995 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

lisp/simple.el lisp/simple.el +4 -4

No files found.
--- 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.