diff options
| -rw-r--r-- | lisp/dired.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 7644887d103..679d82936e7 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1173,7 +1173,10 @@ Creates a buffer if necessary." | |||
| 1173 | (defun dired-find-file () | 1173 | (defun dired-find-file () |
| 1174 | "In dired, visit the file or directory named on this line." | 1174 | "In dired, visit the file or directory named on this line." |
| 1175 | (interactive) | 1175 | (interactive) |
| 1176 | (find-file (file-name-sans-versions (dired-get-filename) t))) | 1176 | (let ((file-name (file-name-sans-versions (dired-get-filename) t))) |
| 1177 | (if (file-exists-p file-name) | ||
| 1178 | (find-file file-name) | ||
| 1179 | (error "File no longer exists; type `g' to update Dired buffer")))) | ||
| 1177 | 1180 | ||
| 1178 | (defun dired-mouse-find-file-other-window (event) | 1181 | (defun dired-mouse-find-file-other-window (event) |
| 1179 | "In dired, visit the file or directory name you click on." | 1182 | "In dired, visit the file or directory name you click on." |