procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(what-cursor-position): Use Lisp-readable syntax for octal and hex.

Browse source 
Reorder decimal, octal and hex values.
Remove excess whitespace in the output.
Use `=' in `column=' like in `point=' and `Hscroll='.
This commit is contained in:
Juri Linkov 2005-11-20 07:43:01 +00:00
parent cee723fbf9
commit a17a79c039
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/simple.el
View file

@ -893,9 +893,9 @@ in *Help* buffer. See also the command `describe-char'."
(col (current-column))) (col (current-column)))
(if (= pos end) (if (= pos end)
(if (or (/= beg 1) (/= end (1+ total))) (if (or (/= beg 1) (/= end (1+ total)))
(message "point=%d of %d (%d%%) <%d - %d> column %d %s" (message "point=%d of %d (%d%%) <%d-%d> column=%d%s"
pos total percent beg end col hscroll) pos total percent beg end col hscroll)
(message "point=%d of %d (EOB) column %d %s" (message "point=%d of %d (EOB) column=%d%s"
pos total col hscroll)) pos total col hscroll))
(let ((coding buffer-file-coding-system) (let ((coding buffer-file-coding-system)
encoded encoding-msg display-prop under-display) encoded encoding-msg display-prop under-display)
@ -904,7 +904,7 @@ in *Help* buffer. See also the command `describe-char'."
(setq coding default-buffer-file-coding-system)) (setq coding default-buffer-file-coding-system))
(if (not (char-valid-p char)) (if (not (char-valid-p char))
(setq encoding-msg (setq encoding-msg
(format "(0%o, %d, 0x%x, invalid)" char char char)) (format "(%d, #o%o, #x%x, invalid)" char char char))
;; Check if the character is displayed with some `display' ;; Check if the character is displayed with some `display'
;; text property. In that case, set under-display to the ;; text property. In that case, set under-display to the
;; buffer substring covered by that property. ;; buffer substring covered by that property.
@ -923,27 +923,27 @@ in *Help* buffer. See also the command `describe-char'."
(setq encoding-msg (setq encoding-msg
(if display-prop (if display-prop
(if (not (stringp display-prop)) (if (not (stringp display-prop))
(format "(0%o, %d, 0x%x, part of display \"%s\")" (format "(%d, #o%o, #x%x, part of display \"%s\")"
char char char under-display) char char char under-display)
(format "(0%o, %d, 0x%x, part of display \"%s\"->\"%s\")" (format "(%d, #o%o, #x%x, part of display \"%s\"->\"%s\")"
char char char under-display display-prop)) char char char under-display display-prop))
(if encoded (if encoded
(format "(0%o, %d, 0x%x, file %s)" (format "(%d, #o%o, #x%x, file %s)"
char char char char char char
(if (> (length encoded) 1) (if (> (length encoded) 1)
"..." "..."
(encoded-string-description encoded coding))) (encoded-string-description encoded coding)))
(format "(0%o, %d, 0x%x)" char char char))))) (format "(%d, #o%o, #x%x)" char char char)))))
(if detail (if detail
;; We show the detailed information about CHAR. ;; We show the detailed information about CHAR.
(describe-char (point))) (describe-char (point)))
(if (or (/= beg 1) (/= end (1+ total))) (if (or (/= beg 1) (/= end (1+ total)))
(message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s" (message "Char: %s %s point=%d of %d (%d%%) <%d-%d> column=%d%s"
(if (< char 256) (if (< char 256)
(single-key-description char) (single-key-description char)
(buffer-substring-no-properties (point) (1+ (point)))) (buffer-substring-no-properties (point) (1+ (point))))
encoding-msg pos total percent beg end col hscroll) encoding-msg pos total percent beg end col hscroll)
(message "Char: %s %s point=%d of %d (%d%%) column %d %s" (message "Char: %s %s point=%d of %d (%d%%) column=%d%s"
(if enable-multibyte-characters (if enable-multibyte-characters
(if (< char 128) (if (< char 128)
(single-key-description char) (single-key-description char)