project--files-in-directory: Handle errors reported by 'find'

* lisp/progmodes/project.el (project--files-in-directory):
Handle errors reported by 'find' (bug#47799).

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index fdca4462f553a4a35ee1703d733a0314ab6f6e09..1edbe069a4c61d2ebb58db43118ceb3f84edd7bb 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -312,9 +312,15 @@ to find the list of ignores for each directory."
                                        (concat " -o " find-name-arg " "))
                                       " "
                                       (shell-quote-argument ")"))
-                            ""))))
+                            "")))
+         (output (with-output-to-string
+                   (with-current-buffer standard-output
+                     (let ((status
+                            (process-file-shell-command command nil t)))
+                       (unless (zerop status)
+                         (error "File listing failed: %s" (buffer-string))))))))
     (project--remote-file-names
-     (sort (split-string (shell-command-to-string command) "\0" t)
+     (sort (split-string output "\0" t)
            #'string<))))
 
 (defun project--remote-file-names (local-files)