(barf_or_query_if_file_exists): Make the "File is a directory"

error be more correct.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1be9b09381e3ed10c8b34a2a474ffd57a9377715..4e2658f2c1e5e4b65990a40300f4d5864646c79b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,8 @@
        * 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).
+       (barf_or_query_if_file_exists): Make the "File is a directory"
+       error be more correct.
 
        * fns.c (Frequire): Remove the mention of the .gz files, since
        that's installation-specific, but keep the mention of

diff --git a/src/fileio.c b/src/fileio.c
index 6a4d1c556808ee410970ee0f1eb0bb8c5e99337b..68834d5b5ecd5fe75ae85d0effe0105fa7fcc56b 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1757,7 +1757,7 @@ barf_or_query_if_file_exists (Lisp_Object absname, const char *querystring,
     {
       if (Ffile_directory_p (absname))
        xsignal2 (Qfile_error,
-                 build_string ("File name is a directory"), absname);
+                 build_string ("File is a directory"), absname);
 
       if (! interactive)
        xsignal2 (Qfile_already_exists,