From daaec72a82e76f916e639acb51a8ad602433e8a9 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Mon, 8 May 2017 22:17:53 -0400 Subject: Revert "Output number of characters added to file (Bug#354)" The extra message text turned out to be quite annoying in practice, and is generally more trouble than it's worth. Also revert several related changes. Partially revert "Handle `write-region' messages in Tramp properly" Revert "New var write-region-verbose, default nil" Revert "* src/fileio.c (write_region): Don't say "1 characters". (Bug#26796)" Revert "Minor tuneup of write-region change" Revert "Adjust write-region so file name is at the beginning again" Revert "Fix handling of non-integer START param to write-region" Revert "Output number of characters added to file (Bug#354)" * doc/emacs/files.texi (Misc File Ops): * etc/NEWS: * 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-adb.el (tramp-adb-handle-write-region): * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-write-region): * lisp/net/tramp-sh.el (tramp-sh-handle-write-region): * lisp/net/tramp-smb.el (tramp-smb-handle-write-region): * lisp/net/tramp.el (tramp-handle-write-region-message): * src/fileio.c (write_region, syms_of_fileio): * test/lisp/net/tramp-tests.el (tramp-test10-write-region): Remove extra characters from file writing messages. --- lisp/epa-file.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lisp/epa-file.el') diff --git a/lisp/epa-file.el b/lisp/epa-file.el index 64e00e0aba4..c97acb837aa 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el @@ -290,10 +290,7 @@ If no one is selected, symmetric encryption will be performed. " (if (or (eq visit t) (eq visit nil) (stringp visit)) - (message "Wrote `%s' (%d characters)" buffer-file-name - (cond ((null start) (buffer-size)) - ((stringp start) (length start)) - (t (- end start))))))) + (message "Wrote %s" buffer-file-name)))) (put 'write-region 'epa-file 'epa-file-write-region) (defun epa-file-select-keys () -- cgit v1.2.3