Fix Bug#22814

* src/doc.c (get_doc_string): Raise an error in case too many
files are open.  (Bug#22814)

diff --git a/src/doc.c b/src/doc.c
index a9273f05809d806f221ccecc35e3f3ee7f7c43aa..6e7906578a4b931d243474a5542f81b62615b534 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -126,6 +126,9 @@ get_doc_string (Lisp_Object filepos, bool unibyte, bool definition)
   fd = emacs_open (name, O_RDONLY, 0);
   if (fd < 0)
     {
+      if ((errno == EMFILE) || (errno == ENFILE))
+       report_file_error ("Read error on documentation file", file);
+
 #ifndef CANNOT_DUMP
       if (!NILP (Vpurify_flag))
        {