758 |
{ |
{ |
759 |
safe_p = 0; |
safe_p = 0; |
760 |
if (!load_dangerous_libraries) |
if (!load_dangerous_libraries) |
761 |
error ("File `%s' was not compiled in Emacs", |
{ |
762 |
XSTRING (found)->data); |
emacs_close (fd); |
763 |
|
error ("File `%s' was not compiled in Emacs", |
764 |
|
XSTRING (found)->data); |
765 |
|
} |
766 |
else if (!NILP (nomessage)) |
else if (!NILP (nomessage)) |
767 |
message_with_string ("File `%s' not compiled in Emacs", found, 1); |
message_with_string ("File `%s' not compiled in Emacs", found, 1); |
768 |
} |
} |
781 |
|
|
782 |
if (fd >= 0) |
if (fd >= 0) |
783 |
emacs_close (fd); |
emacs_close (fd); |
784 |
|
/* load-with-code-conversion currently fails with |
785 |
|
emacs-mule non-ASCII doc strings. */ |
786 |
|
error ("Can't currently load Emacs 20/1-compiled files: %s", |
787 |
|
XSTRING (found)->data); |
788 |
|
#if 0 |
789 |
val = call4 (intern ("load-with-code-conversion"), found, file, |
val = call4 (intern ("load-with-code-conversion"), found, file, |
790 |
NILP (noerror) ? Qnil : Qt, |
NILP (noerror) ? Qnil : Qt, |
791 |
NILP (nomessage) ? Qnil : Qt); |
NILP (nomessage) ? Qnil : Qt); |
792 |
|
#endif |
793 |
return unbind_to (count, val); |
return unbind_to (count, val); |
794 |
} |
} |
795 |
|
|