Mercurial > emacs
diff lisp/simple.el @ 27477:8a7e3bcab064
(what-cursor-position): Change formatting of
messages.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 28 Jan 2000 17:27:56 +0000 |
| parents | 1cb6c18c3163 |
| children | 132294fa754e |
line wrap: on
line diff
--- a/lisp/simple.el Fri Jan 28 17:04:22 2000 +0000 +++ b/lisp/simple.el Fri Jan 28 17:27:56 2000 +0000 @@ -491,9 +491,9 @@ (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 @@ (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))))