From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 15 Feb 2019 13:45:23 +0000 (+0200)
Subject: Make ls-lisp.el behave like Posix hosts when directory doesn't exist
X-Git-Tag: emacs-27.0.90~3604
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00b8c7ef96dacaf36ec6e66356b4d100ad9b1530;p=emacs.git

Make ls-lisp.el behave like Posix hosts when directory doesn't exist

* lisp/ls-lisp.el (ls-lisp-insert-directory): For a directory
that cannot be accessed, signal an error, like insert-directory
does on Posix systems.  This causes files-tests.el to pass on
MS-Windows.
---

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index c00dd29c454..1f2c46834ec 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -475,9 +475,13 @@ not contain `d', so that a full listing is expected."
 		       (ls-lisp-classify-file file fattr)
 		     file)
 		   fattr (file-attribute-size fattr)
-				  switches time-index))
-	(message "%s: doesn't exist or is inaccessible" file)
-	(ding) (sit-for 2)))))		; to show user the message!
+                   switches time-index))
+        ;; Emulate what we do on Posix hosts when we call access-file
+        ;; in insert-directory.
+	(signal 'file-error
+                (list "Reading directory"
+                      "Directory doesn't exist or is inaccessible"
+                      file))))))
 
 (declare-function dired-read-dir-and-switches "dired" (str))
 (declare-function dired-goto-next-file "dired" ())