From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 29 May 2024 14:41:01 +0000 (+0300)
Subject: Fix error message from 'insert-file-contents'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a71d6a0a1ec50c33d8cb9da971b71166aa208e75;p=emacs.git

Fix error message from 'insert-file-contents'

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

(cherry picked from commit 8f618711d13fb82b10b67a12f47736e01ec4b92b)
---

diff --git a/src/fileio.c b/src/fileio.c
index 960a3b21dc0..9955f83e625 100644
--- 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;