Fix error message from 'insert-file-contents'

* src/fileio.c (Finsert_file_contents): Consider directories
to be "regular" files.  (Bug#71258)

diff --git a/src/fileio.c b/src/fileio.c
index 960a3b21dc0ae506862a708d76131456f96a4c75..9955f83e6252206b0f43133f2ee45a73d6b2d844 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4188,7 +4188,7 @@ by calling `format-decode', which see.  */)
      named pipes, and it's probably just not worth it.  So we should
      at least signal an error.  */
 
-  if (!S_ISREG (st.st_mode))
+  if (!(S_ISREG (st.st_mode) || S_ISDIR (st.st_mode)))
     {
       regular = false;