diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2019-02-15 15:45:23 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-02-15 15:45:23 +0200 |
| commit | 00b8c7ef96dacaf36ec6e66356b4d100ad9b1530 (patch) | |
| tree | 6e3fff159597db85fb49153029cd731ef42f669a /lisp/ls-lisp.el | |
| parent | 4d00262a8ebd3c8a0f3679a710b6bb8657bf2ca1 (diff) | |
| download | emacs-00b8c7ef96dacaf36ec6e66356b4d100ad9b1530.tar.gz | |
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.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 10 |
1 files changed, 7 insertions, 3 deletions
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" ()) |