1 files changed, 7 insertions, 28 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 6138bfc68bb..acbf76e0d81 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5150,29 +5150,13 @@ write_region (Lisp_Object start, Lisp_Object end, Lisp_Object filename,
     }
 
   if (!auto_saving && !noninteractive)
-    {
-      EMACS_INT nchars = (STRINGP (start) ? SCHARS (start)
-                          : XINT (end) - XINT (start));
-      AUTO_STRING (format,
-                   (NUMBERP (append)
-                    ? (NILP (Vwrite_region_verbose)
-                       ? "Updated `%s'"
-                       : nchars == 1
-                       ? "Updated `%s' (1 character)"
-                       : "Updated `%s' (%d characters)")
-                    : ! NILP (append)
-                    ? (NILP (Vwrite_region_verbose)
-                       ? "Added to `%s'"
-                       : nchars == 1
-                       ? "Added to `%s' (1 character)"
-                       : "Added to `%s' (%d characters)")
-                    : (NILP (Vwrite_region_verbose)
-                       ? "Wrote `%s'"
-                       : nchars == 1
-                       ? "Wrote `%s' (1 character)"
-                       : "Wrote `%s' (%d characters)")));
-      CALLN (Fmessage, format, visit_file, make_number (nchars));
-    }
+    message_with_string ((NUMBERP (append)
+                          ? "Updated %s"
+                          : ! NILP (append)
+                          ? "Added to %s"
+                          : "Wrote %s"),
+                         visit_file, 1);
+
   return Qnil;
 }
 
@@ -6142,11 +6126,6 @@ These are the annotations made by other annotation functions
 that were already called.  See also `write-region-annotate-functions'.  */);
   Vwrite_region_annotations_so_far = Qnil;
 
-  DEFVAR_LISP ("write-region-verbose",
-               Vwrite_region_verbose,
-               doc: /* If non-nil, be more verbose when writing a region.  */);
-  Vwrite_region_verbose = Qnil;
-
   DEFVAR_LISP ("inhibit-file-name-handlers", Vinhibit_file_name_handlers,
                doc: /* A list of file name handlers that temporarily should not be used.
 This applies only to the operation `inhibit-file-name-operation'.  */);