From: Gerd Moellmann Date: Mon, 4 Sep 2000 12:04:29 +0000 (+0000) Subject: (syms_of_lread): Make Vbytecomp_version_regexp a Lisp X-Git-Tag: emacs-pretest-21.0.90~1811 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb970e67218b241717e3539126ae8f88e950151c;p=emacs.git (syms_of_lread): Make Vbytecomp_version_regexp a Lisp variable; recognize Emacs 19 elc files. --- diff --git a/src/ChangeLog b/src/ChangeLog index 0b6d54a8db8..6dbbad6dea9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2000-09-04 Gerd Moellmann + + * lread.c (syms_of_lread): Make Vbytecomp_version_regexp a Lisp + variable; recognize Emacs 19 elc files. + 2000-09-04 Miles Bader * xmenu.c (xmenu_show): Call x_set_menu_resources_from_menu_face diff --git a/src/lread.c b/src/lread.c index 2e618633ae3..cb682b2f2ae 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3543,8 +3543,14 @@ incompatible byte codes can make Emacs crash when it tries to execute\n\ them."); load_dangerous_libraries = 0; - Vbytecomp_version_regexp = build_string ("^;;;.in Emacs version"); - staticpro (&Vbytecomp_version_regexp); + DEFVAR_LISP ("bytecomp-version-regexp", &Vbytecomp_version_regexp, + "Regular expression matching safe to load compiled Lisp files.\n\ +When Emacs loads a compiled Lisp file, it reads the first 512 bytes\n\ +from the file, and matches them against this regular expression.\n\ +When the regular expression matches, the file is considered to be safe\n\ +to load. See also `load-dangerous-libraries'."); + Vbytecomp_version_regexp + = build_string ("^;;;.\\(in Emacs\\|emacs\\) version"); /* Vsource_directory was initialized in init_lread. */