diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-01-06 20:48:57 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-01-06 20:48:57 +0000 |
commit | 45ef1ff3352be3e35c88b2e43a4d7f24c0a8affd (patch) | |
tree | b5c3ac9a6d75f53391e76399b3bc21f4158da876 | |
parent | 48452eb1dd34da77499a7ad14e14f2ff32d99bae (diff) | |
download | emacs-45ef1ff3352be3e35c88b2e43a4d7f24c0a8affd.tar.gz |
(what-cursor-position): Show char in decimal, hex, octal.
-rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 4 insertions, 4 deletions
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. |