lisp/files.el (warn-maybe-out-of-memory): Fix the wording of the warning.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffb1eee945ec0298df8b9d21e9d23c05318d1061..4e19be4d3ea716048b0ecd28cd96b69c33c238e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-10  Eli Zaretskii  <eliz@gnu.org>
+
+       * files.el (warn-maybe-out-of-memory): Fix the wording of the
+       warning.
+
 2014-07-10  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * files.el (warn-maybe-out-of-memory): New function.

diff --git a/lisp/files.el b/lisp/files.el
index 1d3ffe81b99ac4eaf3a784c513b25cfc41f309a1..258a37616c1f743fb88aaef92508c0e054057fbf 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1804,10 +1804,10 @@ OP-TYPE specifies the file operation being performed (for message to user)."
        (let ((total-free-memory (+ (nth 1 meminfo) (nth 3 meminfo))))
          (when (> (/ size 1024) total-free-memory)
            (warn
-            "You are trying to open file which size (%s)
-exceeds an amount of available free memory (%s).  If that
-fails, try to open it with `find-file-literally' (but note
-that some characters may be displayed incorrectly)."
+            "You are trying to open a file whose size (%s)
+exceeds the amount of currently available free memory (%s).
+If that fails, try to open it with `find-file-literally'
+\(but note that some characters might be displayed incorrectly)."
             (file-size-human-readable size)
             (file-size-human-readable
              (* (float total-free-memory) 1024)))))))))