# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 949080476 0
# Node ID 8a7e3bcab064ec27e22b0d93bae968c6f39e511a
# Parent  e732cf6d8d123bdb2f2ceed28970b65e9cb937e0
(what-cursor-position): Change formatting of
messages.

diff -r e732cf6d8d12 -r 8a7e3bcab064 lisp/simple.el
--- 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))))