From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 6 Jan 1995 20:48:57 +0000 (+0000)
Subject: (what-cursor-position): Show char in decimal, hex, octal.
X-Git-Tag: emacs-19.34~5505
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a83421caac2a73a1f25b80c3b4e07b83a4c6d3f;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index 378c220f4b9..a9b8b0018d8 100644
--- 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.