comparison src/fileio.c @ 4451:73b91cd2c55e

(expand_and_dir_to_file): Remove final / by copying abspath.

4450:325bc5407213

  /* NOTREACHED */
#endif /* not VMS */
}

/* A slightly faster and more convenient way to get
   (directory-file-name (expand-file-name FOO)).  The return value may
   have had its last character zapped with a '\0' character, meaning
   that it is acceptable to system calls, but not to other lisp
   functions.  Callers should make sure that the return value doesn't
   escape.  */

Lisp_Object
expand_and_dir_to_file (filename, defdir)
     Lisp_Object filename, defdir;
{

#else
  /* Remove final slash, if any (unless path is root).
     stat behaves differently depending!  */
  if (XSTRING (abspath)->size > 1
      && XSTRING (abspath)->data[XSTRING (abspath)->size - 1] == '/')
    {
      if (EQ (abspath, filename))
	abspath = Fcopy_sequence (abspath);
      XSTRING (abspath)->data[XSTRING (abspath)->size - 1] = 0;
    }
#endif
  return abspath;
}

barf_or_query_if_file_exists (absname, querystring, interactive)

4451:73b91cd2c55e

  /* NOTREACHED */
#endif /* not VMS */
}

/* A slightly faster and more convenient way to get
   (directory-file-name (expand-file-name FOO)).  */

Lisp_Object
expand_and_dir_to_file (filename, defdir)
     Lisp_Object filename, defdir;
{

#else
  /* Remove final slash, if any (unless path is root).
     stat behaves differently depending!  */
  if (XSTRING (abspath)->size > 1
      && XSTRING (abspath)->data[XSTRING (abspath)->size - 1] == '/')
    abspath = Fsubstring (abspath, make_number (0),
			  make_number (XSTRING (abspath)->size - 1));
#endif
  return abspath;
}

barf_or_query_if_file_exists (absname, querystring, interactive)