comparison src/fileio.c @ 22658:9f320d762e2f

(Faccess_file): Check type of second argument STRING. (Fread_file_name): Bind minibuffer-completing-file-name to t.

22657:d19cd2986f18

{
  Lisp_Object handler, encoded_filename;
  int fd;

  CHECK_STRING (filename, 0);

  /* If the file name has special constructs in it,
     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (filename, Qaccess_file);
  if (!NILP (handler))

      insdef1 = Fcons (double_dollars (insdef), make_number (0));
    }
  else
    insdef = Qnil, insdef1 = Qnil;

#ifdef VMS
  count = specpdl_ptr - specpdl;
  specbind (intern ("completion-ignore-case"), Qt);
#endif

  GCPRO2 (insdef, default_filename);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch, insdef1,
			  Qfile_name_history, default_filename, Qnil);

	add_to_history = 1;

      val = build_string ("");
    }

#ifdef VMS
  unbind_to (count, Qnil);
#endif

  UNGCPRO;
  if (NILP (val))
    error ("No file name specified");

  tem = Fstring_equal (val, insdef);

22658:9f320d762e2f

{
  Lisp_Object handler, encoded_filename;
  int fd;

  CHECK_STRING (filename, 0);
  CHECK_STRING (string, 1);

  /* If the file name has special constructs in it,
     call the corresponding file handler.  */
  handler = Ffind_file_name_handler (filename, Qaccess_file);
  if (!NILP (handler))

      insdef1 = Fcons (double_dollars (insdef), make_number (0));
    }
  else
    insdef = Qnil, insdef1 = Qnil;

  count = specpdl_ptr - specpdl;
#ifdef VMS
  specbind (intern ("completion-ignore-case"), Qt);
#endif

  specbind (intern ("minibuffer-completing-file-name"), Qt);

  GCPRO2 (insdef, default_filename);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch, insdef1,
			  Qfile_name_history, default_filename, Qnil);

	add_to_history = 1;

      val = build_string ("");
    }

  unbind_to (count, Qnil);
  UNGCPRO;
  if (NILP (val))
    error ("No file name specified");

  tem = Fstring_equal (val, insdef);