# # "Not all of them use vi." # package Emacs::Lisp; use 5.002;
# prototypes use Carp (); use strict; no strict 'refs'; use vars
qw ($VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD %EXPORT);
my (%special); require Exporter; BEGIN { # Set inlinable
constants based on feature tests. local ($@); local
$ENV{PERL_DL_NONLAZY} = ""; # Why? I forgot. Needed for 5.005.
eval { require B; }; eval ('sub HAVE_B () {'. ($@ ? 0 : 1)
.'}'); } $VERSION = '1.01'; if (! defined
(&Emacs::Lisp::funcall) || ! defined
(&Emacs::Lisp::Object::funcall)) { if (defined
(&Emacs::boot_Emacs)) { Emacs::boot_Emacs ($VERSION); } else {
require Emacs::EPL; } } # Really don't want to leave the
funcall()s undefined, because they # are called by AUTOLOAD, and
infinite recursion in AUTOLOAD is a # quick way to melt down a
system. if (! defined (&Emacs::Lisp::funcall) || ! defined
(&Emacs::Lisp::Object::funcall)) { Carp::croak ("funcall not
defined"); } # Closure generator shared by Emacs::Lisp::AUTOLOAD
and # Emacs::Lisp::Object::AUTOLOAD. # F