From: Kenichi Handa <handa@m17n.org>
Date: Mon, 19 Aug 2002 11:34:28 +0000 (+0000)
Subject: (safe_to_load_p): Fix the logic.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=927f12daa2e9227fb77bdb9b5651367bc79e39a2;p=emacs.git

(safe_to_load_p): Fix the logic.
---

diff --git a/src/lread.c b/src/lread.c
index 7b3b5326e67..dbc081d9e96 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -760,8 +760,8 @@ safe_to_load_p (fd)
 	if (i == 4)
 	  version = buf[i];
 
-      if (i < nbytes
-	  && fast_c_string_match_ignore_case (Vbytecomp_version_regexp,
+      if (i == nbytes
+	  || fast_c_string_match_ignore_case (Vbytecomp_version_regexp,
 					      buf + i) < 0)
 	safe_p = 0;
     }