Adjust write-region so file name is at the beginning again

* lisp/epa-file.el (epa-file-write-region):
* lisp/gnus/mm-util.el (mm-append-to-file):
* lisp/jka-compr.el (jka-compr-write-region):
* lisp/net/ange-ftp.el (ange-ftp-write-region):
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-write-region):
* lisp/net/tramp-sh.el (tramp-sh-handle-write-region):
* src/fileio.c (write_region): Put file name at the beginning and move
number of characters to the end of the message.

1 files changed, 5 insertions, 6 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 567f56c9063..fc853f26673 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5152,14 +5152,13 @@ write_region (Lisp_Object start, Lisp_Object end, Lisp_Object filename,
   if (!auto_saving && !noninteractive)
     {
       AUTO_STRING (format, NUMBERP (append)
-                   ? "Updated %d characters of `%s'"
+                   ? "Updated `%s' (%d characters)"
                    : ! NILP (append)
-                   ? "Added %d characters to `%s'"
-                   : "Wrote %d characters to `%s'");
-      CALLN (Fmessage, format,
+                   ? "Added to `%s' (%d characters)"
+                   : "Wrote `%s' (%d characters)");
+      CALLN (Fmessage, format, visit_file,
              (STRINGP (start) ? Flength (start)
-              : make_number (XINT (end) - XINT (start))),
-             visit_file);
+              : make_number (XINT (end) - XINT (start))));
     }
   return Qnil;
 }