mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(find-file-noselect): No error if file no longer exists.

Browse Source 
Display a message and avoid other questions.
This commit is contained in:
Richard M. Stallman 2007-03-05 18:46:36 +00:00
parent 4e776917b9
commit 2c5b1db7f5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/files.el
View File

@ -1474,11 +1474,12 @@ the various files."
(error "Aborted"))
(if buf
;; We are using an existing buffer.
(progn
(let (nonexistent)
(or nowarn
(verify-visited-file-modtime buf)
(cond ((not (file-exists-p filename))
(error "File %s no longer exists!" filename))
(setq nonexistent t)
(message "File %s no longer exists!" filename))
;; Certain files should be reverted automatically
;; if they have changed on disk and not in the buffer.
((and (not (buffer-modified-p buf))
@ -1515,7 +1516,8 @@ the various files."
;; writable and vice versa, but if the buffer agrees
;; with the new state of the file, that is ok too.
(let ((read-only (not (file-writable-p buffer-file-name))))
(unless (or (eq read-only buffer-file-read-only)
(unless (or nonexistent
(eq read-only buffer-file-read-only)
(eq read-only buffer-read-only))
(when (or nowarn
(let ((question
@ -1528,6 +1530,7 @@ the various files."
(when (and (not (eq (not (null rawfile))
(not (null find-file-literally))))
(not nonexistent)
;; It is confusing to ask whether to visit
;; non-literally if they have the file in
;; hexl-mode.