comparison src/lread.c @ 23193:c12a3c0be4ee

(Fload): Handle case where openp finds a magic file but it has no `load' handler or that handler calls `load'. If FOUND != FILE, find FOUND's handler even if inhibited for FILE.

23192:1ea9db09a678

				       Fcons (file, Qnil)));
      else
	return Qnil;
    }

  /* If FD is 0, that means openp found a remote file.  */
  if (fd == 0)
    {
      handler = Ffind_file_name_handler (found, Qload);
      return call5 (handler, Qload, found, noerror, nomessage, Qt);
    }

  if (!bcmp (&(XSTRING (found)->data[XSTRING (found)->size - 4]),
	     ".elc", 4))
    {
      struct stat s1, s2;
      int result;

      compiled = 1;

  else
    {
      /* We are loading a source file (*.el).  */
      if (!NILP (Vload_source_file_function))
	{
	  close (fd);
	  return call4 (Vload_source_file_function, found, file,
			NILP (noerror) ? Qnil : Qt,
			NILP (nomessage) ? Qnil : Qt);
	}
    }

#ifdef LISP_FLOAT_TYPE
	    if (isfloat_string (read_buffer))
	      {
		/* Compute NaN and infinities using 0.0 in a variable,
		   to cope with compilers that think they are smarter
		   than us.  */
		double zero = 0.0;

		double value;

		/* Negate the value ourselves.  This treats 0, NaNs,

23193:c12a3c0be4ee

				       Fcons (file, Qnil)));
      else
	return Qnil;
    }

  /* If FD is 0, that means openp found a magic file.  */
  if (fd == 0)
    {
      if (NILP (Fequal (found, file)))
	/* If FOUND is a different file name from FILE,
	   find its handler even if we have already inhibited
	   the `load' operation on FILE.  */
	handler = Ffind_file_name_handler (found, Qt);
      else
	handler = Ffind_file_name_handler (found, Qload);
      if (! NILP (handler))
	return call5 (handler, Qload, found, noerror, nomessage, Qt);
    }

  /* Load .elc files directly, but not when they are
     remote and have no handler!  */
  if (!bcmp (&(XSTRING (found)->data[XSTRING (found)->size - 4]),
	     ".elc", 4)
      && fd != 0)
    {
      struct stat s1, s2;
      int result;

      compiled = 1;

  else
    {
      /* We are loading a source file (*.el).  */
      if (!NILP (Vload_source_file_function))
	{
	  if (fd != 0)
	    close (fd);
	  return call4 (Vload_source_file_function, found, file,
			NILP (noerror) ? Qnil : Qt,
			NILP (nomessage) ? Qnil : Qt);
	}
    }

#ifdef LISP_FLOAT_TYPE
	    if (isfloat_string (read_buffer))
	      {
		/* Compute NaN and infinities using 0.0 in a variable,
		   to cope with compilers that think they are smarter
		   than we are.  */
		double zero = 0.0;

		double value;

		/* Negate the value ourselves.  This treats 0, NaNs,