[Emacs-diffs] scratch/record fe2a76d: Bump ELC version to 24, and enable old struct compatibility for old files.

[Lars Brinkhoff]

branch: scratch/record
commit fe2a76dedb98fb4cf7c2c1f545ce1e63c6362848
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>

    Bump ELC version to 24, and enable old struct compatibility for old files.
---
 lisp/emacs-lisp/bytecomp.el | 2 +-
 src/lread.c                 | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 2c2996e..2bf2eab 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2099,7 +2099,7 @@ Call from the source buffer."
       ;; 0     string          ;ELC            GNU Emacs Lisp compiled file,
       ;; >4    byte            x               version %d
       (insert
-       ";ELC" 23 "\000\000\000\n"
+       ";ELC" 24 "\000\000\000\n"
        ";;; Compiled\n"
        ";;; in Emacs version " emacs-version "\n"
        ";;; with"
diff --git a/src/lread.c b/src/lread.c
index 6de9fe6..cb49ccd 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1328,6 +1328,12 @@ Return t if the file exists and loads successfully.  */)
   if (lisp_file_lexically_bound_p (Qget_file_char))
     Fset (Qlexical_binding, Qt);
 
+  if (version > 1 && version < 24)
+    {
+      Fload (build_string ("cl-lib.elc"), Qt, Qt, Qt, Qt);
+      CALLN (Ffuncall, intern ("cl-old-struct-compat-mode"), XFASTINT (1));
+    }
+
   if (! version || version >= 22)
     readevalloop (Qget_file_char, stream, hist_file_name,
                  0, Qnil, Qnil, Qnil, Qnil);