diff options
| author | Richard M. Stallman | 1995-01-06 20:48:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-06 20:48:57 +0000 |
| commit | 2a83421caac2a73a1f25b80c3b4e07b83a4c6d3f (patch) | |
| tree | 68f17fff826d5052b332081272679be459d15750 | |
| parent | 34c313012144acc38328c3c8e226f7fc22c2ed64 (diff) | |
| download | emacs-2a83421caac2a73a1f25b80c3b4e07b83a4c6d3f.tar.gz emacs-2a83421caac2a73a1f25b80c3b4e07b83a4c6d3f.zip | |
(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." | |||
| 374 | (message "point=%d of %d(%d%%) column %d %s" | 374 | (message "point=%d of %d(%d%%) column %d %s" |
| 375 | pos total percent col hscroll)) | 375 | pos total percent col hscroll)) |
| 376 | (if (or (/= beg 1) (/= end (1+ total))) | 376 | (if (or (/= beg 1) (/= end (1+ total))) |
| 377 | (message "Char: %s (0%o) point=%d of %d(%d%%) <%d - %d> column %d %s" | 377 | (message "Char: %s (0%o, %d, 0x%x) point=%d of %d(%d%%) <%d - %d> column %d %s" |
| 378 | (single-key-description char) char pos total percent beg end col hscroll) | 378 | (single-key-description char) char char char pos total percent beg end col hscroll) |
| 379 | (message "Char: %s (0%o) point=%d of %d(%d%%) column %d %s" | 379 | (message "Char: %s (0%o, %d, 0x%x) point=%d of %d(%d%%) column %d %s" |
| 380 | (single-key-description char) char pos total percent col hscroll))))) | 380 | (single-key-description char) char char char pos total percent col hscroll))))) |
| 381 | 381 | ||
| 382 | (defun fundamental-mode () | 382 | (defun fundamental-mode () |
| 383 | "Major mode not specialized for anything in particular. | 383 | "Major mode not specialized for anything in particular. |