Manual says FILE-NOT-READABLE? and brothers return 'NO-DIRECTORY

if some dir in the path isn't there; code returned 'NOT-DIRECTORY.
Manual was right; code was wrong.
    -Olin
This commit is contained in:
olin-shivers 2001-03-15 03:54:48 +00:00
parent effab78a3d
commit 94553d1c36
1 changed files with 1 additions and 1 deletions

View File

@ -40,7 +40,7 @@
(let ((uid (user-effective-uid)))
(with-errno-handler ((err data)
((errno/acces) 'search-denied)
((errno/notdir) 'not-directory)
((errno/notdir) 'no-directory)
;; If the file doesn't exist, we usually return
;; 'nonexistent, but we special-case writability