procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/lread.c (readevalloop): Simplify via suffix_p.

Browse source
This commit is contained in:
Paul Eggert 2019-02-16 10:17:33 -08:00
parent 2208c01264
commit 5c158d1320
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/lread.c
View file

@ -1070,14 +1070,15 @@ This uses the variables `load-suffixes' and `load-file-rep-suffixes'. */)
return Fnreverse (lst);
}
/* Returns true if STRING ends with SUFFIX */
/* Return true if STRING ends with SUFFIX. */
static bool
suffix_p (Lisp_Object string, const char *suffix)
{
ptrdiff_t suffix_len = strlen (suffix);
ptrdiff_t string_len = SBYTES (string);
return string_len >= suffix_len && !strcmp (SSDATA (string) + string_len - suffix_len, suffix);
return (suffix_len <= string_len
&& strcmp (SSDATA (string) + string_len - suffix_len, suffix) == 0);
}
static void
@ -1932,9 +1933,7 @@ readevalloop (Lisp_Object readcharfun,
Lisp_Object macroexpand = intern ("internal-macroexpand-for-load");
if (NILP (Ffboundp (macroexpand))
|| (STRINGP (sourcename)
&& SBYTES (sourcename) >= 4
&& !strcmp (".elc", SSDATA (sourcename) + SBYTES (sourcename) - 4)))
|| (STRINGP (sourcename) && suffix_p (sourcename, ".elc")))
/* Don't macroexpand before the corresponding function is defined
and don't bother macroexpanding in .elc files, since it should have
been done already. */