* fileio.c (barf_or_query_if_file_exists): Check first if the file

is a directory before asking whether to use the file name
(bug#7564).

1 files changed, 4 insertions, 0 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 27fef42960a..6a4d1c55680 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1755,6 +1755,10 @@ barf_or_query_if_file_exists (Lisp_Object absname, const char *querystring,
      regardless of what access permissions it has.  */
   if (lstat (SSDATA (encoded_filename), &statbuf) >= 0)
     {
+      if (Ffile_directory_p (absname))
+        xsignal2 (Qfile_error,
+                  build_string ("File name is a directory"), absname);
+
       if (! interactive)
         xsignal2 (Qfile_already_exists,
                   build_string ("File already exists"), absname);