Commit 74fd2380 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(what-cursor-position): Change formatting of

messages.
parent e79a8eb2
......@@ -491,9 +491,9 @@ addition, the encoding is fully shown."
(col (current-column)))
(if (= pos end)
(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)
(message "point=%d of %d(%d%%) column %d %s"
(message "point=%d of %d (%d%%) column %d %s"
pos total percent col hscroll))
(let ((coding buffer-file-coding-system)
encoded encoding-msg)
......@@ -524,12 +524,12 @@ addition, the encoding is fully shown."
(buffer-substring-no-properties (point) (1+ (point))))
encoding-msg (split-char char))
(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)
(single-key-description char)
(buffer-substring-no-properties (point) (1+ (point))))
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 (< char 256)
(single-key-description char)
(buffer-substring-no-properties (point) (1+ (point))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment