Function: get-load-suffixes

get-load-suffixes is a function defined in lread.c.

Signature

(get-load-suffixes)

Documentation

Return the suffixes that load should try if a suffix is required.

This uses the variables load-suffixes and load-file-rep-suffixes.

View in manual

Source Code

// Defined in /usr/src/emacs/src/lread.c
{
  Lisp_Object lst = Qnil, suffixes = Vload_suffixes;
  FOR_EACH_TAIL (suffixes)
    {
      Lisp_Object exts = Vload_file_rep_suffixes;
      Lisp_Object suffix = XCAR (suffixes);
      FOR_EACH_TAIL (exts)
	{
	  Lisp_Object ext = XCAR (exts);
#ifdef HAVE_MODULES
	  if (SCHARS (ext) > 0
	      && (suffix_p (suffix, MODULES_SUFFIX)
# ifdef MODULES_SECONDARY_SUFFIX
		  || suffix_p (suffix, MODULES_SECONDARY_SUFFIX)
# endif
		 )
	      && !NILP (Fmember (ext, Fsymbol_value (
					Qjka_compr_load_suffixes))))
	    continue;
#endif
	  lst = Fcons (concat2 (suffix, ext), lst);
	}
    }
  return Fnreverse (lst);
}