Eliminate duplicated "Saving file..." message.

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index d12b6faf9f2ab423e46c0cf3a75b106647f8a137..c8e2beb9c063c5a1f438256e0030debd49f8a2fe 100644 (file)
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.154 1991/05/15 01:11:28 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.155 1991/05/15 17:42:25 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -330,7 +330,8 @@ If `trim-versions-without-asking' is false, system will query user
             (prompt-for-pathname
              (string-append "Write buffer " (buffer-name buffer) " to file")
              false false)))
-       (if (> (buffer-length buffer) 50000)
+       (if (and (ref-variable enable-emacs-write-file-message)
+                (> (buffer-length buffer) 50000))
            (message "Saving file "
                     (pathname->string (buffer-pathname buffer))
                     "..."))

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 81864e16a7ba2250c82ec776402516887605a7a8..768292a707e11f7704838325770b54cd7be4aaed 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.99 1991/05/14 02:27:42 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.100 1991/05/15 17:42:51 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -455,7 +455,7 @@ Otherwise, a message is written both before and after long file writes."
       (cond ((not message?)
             (do-it))
            ((or (ref-variable enable-emacs-write-file-message)
-                (< (- end start) 50000))
+                (<= (- end start) 50000))
             (do-it)
             (message "Wrote " filename))
            (else