insert-file-contents from seekable non-regular

* src/fileio.c (Finsert_file_contents): Be more conservative
when reading from seekable non-regular files when END is given.
The code assumed that in this case, reads would succeed or fail
quickly so there was no need to call internal_condition_case_1.
However, in some cases, e.g., /dev/random, it could take a while.
This fixes a glitch introduced in commit
cb4579ed6ba45c81ee7ec627bf197e1def121f24 dated 2022-06-11.

(cherry picked from commit aaf9c5213f7102dca8da7b6aaf1d400419eda075)

diff --git a/src/fileio.c b/src/fileio.c
index 010c5ac0864a70b138c94ea9210824cea7810200..9b47b565458fe8a721b9dff0e3438c917aedee58 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4897,7 +4897,7 @@ by calling `format-decode', which see.  */)
          }
        bufsize = min (bufsize, total - inserted);
 
-       if (!seekable && end_offset == TYPE_MAXIMUM (off_t))
+       if (!regular)
          {
            Lisp_Object nbytes;
            intmax_t number;