* files.el (warn-maybe-out-of-memory): Fix last change.

diff --git a/lisp/files.el b/lisp/files.el
index 63bdf636b632981cd038953bd7d903e948e15dd2..1d3ffe81b99ac4eaf3a784c513b25cfc41f309a1 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1798,19 +1798,19 @@ OP-TYPE specifies the file operation being performed (for message to user)."
 
 (defun warn-maybe-out-of-memory (size)
   "Warn if an attempt to open file of SIZE bytes may run out of memory."
-  (let ((meminfo (memory-info)))
-    (when (consp meminfo)
-      (let ((total-free-memory (+ (nth 1 meminfo) (nth 3 meminfo))))
-       (when (and (not (zerop size))
-                  (> (/ size 1024) total-free-memory))
-         (warn
-          "You are trying to open file which size (%s)
+  (when (and (numberp size) (not (zerop size)))
+    (let ((meminfo (memory-info)))
+      (when (consp meminfo)
+       (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)."
-          (file-size-human-readable size)
-          (file-size-human-readable
-           (* (float total-free-memory) 1024))))))))
+            (file-size-human-readable size)
+            (file-size-human-readable
+             (* (float total-free-memory) 1024)))))))))
 
 (defun find-file-noselect (filename &optional nowarn rawfile wildcards)
   "Read file FILENAME into a buffer and return the buffer.