Skip to content

GitLab

Commit 7b3d6b9c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-file-noselect): Fix previous change.

parent 6b0f9bdf
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
lisp/files.el
View file @ 7b3d6b9c
......@@ -914,7 +914,8 @@ Optional second arg RAWFILE non-nil means the file is read literally."
(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 @@ Optional second arg RAWFILE non-nil means the file is read literally."
(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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment