Mercurial > emacs
diff lisp/files.el @ 20501:4ff9d9b75477
(find-file-noselect): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Dec 1997 02:34:59 +0000 |
| parents | 8f8db0e25b29 |
| children | bda7ed815582 |
line wrap: on
line diff
--- a/lisp/files.el Sun Dec 21 02:33:57 1997 +0000 +++ b/lisp/files.el Sun Dec 21 02:34:59 1997 +0000 @@ -914,7 +914,8 @@ (condition-case () (insert-file-contents-literally filename t) (file-error - (when (not (file-readable-p filename)) + (when (and (file-exists-p filename) + (not (file-readable-p filename))) (kill-buffer buf) (signal 'file-error (list "File is not readable" filename))) @@ -923,7 +924,8 @@ (condition-case () (insert-file-contents filename t) (file-error - (when (not (file-readable-p filename)) + (when (and (file-exists-p filename) + (not (file-readable-p filename))) (kill-buffer buf) (signal 'file-error (list "File is not readable" filename)))