From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Jun 2003 00:04:10 +0000 (+0000)
Subject: (Fwrite_region): Alternate messages for append and partial write.
X-Git-Tag: ttn-vms-21-2-B4~9591
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c328a0ef53e90858b3f0be516dc917f5c68cdf6;p=emacs.git

(Fwrite_region): Alternate messages for append and partial write.
---

diff --git a/src/fileio.c b/src/fileio.c
index fa8958c11b4..dc918b0851b 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5222,7 +5222,12 @@ This does code conversion according to the value of
     return Qnil;
 
   if (!auto_saving)
-    message_with_string ("Wrote %s", visit_file, 1);
+    message_with_string ((! INTEGERP (append)
+			  ? "Updated %s"
+			  : ! NILP (append)
+			  ? "Added to %s"
+			  : "Wrote %s"),
+			 visit_file, 1);
 
   return Qnil;
 }