mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

* comp.c (native-elisp-load): Guard against misisng file.

Browse source
This commit is contained in:
Andrea Corallo 2020-03-18 20:00:43 +00:00
parent 7565a4a117
commit 0179d95630
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/comp.c
View file

@ -3566,7 +3566,9 @@ DEFUN ("native-elisp-load", Fnative_elisp_load, Snative_elisp_load, 1, 2, 0,
(Lisp_Object file, Lisp_Object late_load)
{
CHECK_STRING (file);
if (NILP (Ffile_exists_p (file)))
xsignal2 (Qnative_lisp_load_failed, build_string ("file does not exists"),
file);
struct Lisp_Native_Comp_Unit *comp_u = allocate_native_comp_unit();
comp_u->handle = dynlib_open (SSDATA (file));
if (!comp_u->handle)