Correct ses--file-format checking.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ec7fc12c3f81dba58c76fe6258cd2e66d7247e7..570d900022f5e7968ca01a82becf779e78225bdf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,11 @@
        * mail/rmail.el (rmail-get-coding-function): Variable.
        (rmail-get-coding-system): Use it.
 
+2014-01-02  Vincent Belaïche  <vincentb1@users.sourceforge.net>
+
+       * ses.el (ses-load): Correct handling for ses--file-format
+       checking.
+
 2014-01-02  Vincent Belaïche  <vincentb1@users.sourceforge.net>
 
        * ses.el (ses-initial-global-parameters-re): New defconst, a

diff --git a/lisp/ses.el b/lisp/ses.el
index cdf479398ed64d9b1728c4d877bb50fa5760b216..2b8daa48ddc1e67be06b884099821e790ecfa6fd 100644 (file)
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -1860,7 +1860,7 @@ Does not execute cell formulas or print functions."
        (insert "(ses-header-row 0)\n")
        (ses-set-parameter 'ses--file-format 3)
        (message "Upgrading from SES-1 file format")))
-    (or (> ses--file-format 3)
+    (or (<= ses--file-format 3)
        (error "This file needs a newer version of the SES library code"))
     ;; Initialize cell array.
     (setq ses--cells (make-vector ses--numrows nil))