diff options
author | Noam Postavsky <npostavs@gmail.com> | 2017-04-07 19:54:11 -0400 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2017-04-07 19:54:11 -0400 |
commit | c323659344ba4db7a0b074b2e29d0a5f33d5eb80 (patch) | |
tree | e7f01af125f1fe89da2214b3b9c0f02a06694308 /src/fileio.c | |
parent | 75824977851f27146638672bba4d3789f2a32612 (diff) | |
download | emacs-c323659344ba4db7a0b074b2e29d0a5f33d5eb80.tar.gz |
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.
Diffstat (limited to 'src/fileio.c')
-rw-r--r-- | src/fileio.c | 11 |
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; } |