(dired-find-file): Error if line's file does not exist.

diff --git a/lisp/dired.el b/lisp/dired.el
index 7644887d103baea36644db957dcdd487d76ac34e..679d82936e7e39ed8fc9d137f89a86aede94afbd 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1173,7 +1173,10 @@ Creates a buffer if necessary."
 (defun dired-find-file ()
   "In dired, visit the file or directory named on this line."
   (interactive)
-  (find-file (file-name-sans-versions (dired-get-filename) t)))
+  (let ((file-name (file-name-sans-versions (dired-get-filename) t)))
+    (if (file-exists-p file-name)
+       (find-file file-name)
+      (error "File no longer exists; type `g' to update Dired buffer"))))
 
 (defun dired-mouse-find-file-other-window (event)
   "In dired, visit the file or directory name you click on."