diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 35 |
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'. */); |