diff options
| author | Richard M. Stallman | 1996-10-31 20:51:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-10-31 20:51:44 +0000 |
| commit | c439687b4d3a617dbdb8e90e401a9db17d08426d (patch) | |
| tree | 2834136b51be2e49a422bafd3ad123bbf6750617 | |
| parent | 9663837a53cce9df84da03a0f6f04bc8b2b30eca (diff) | |
| download | emacs-c439687b4d3a617dbdb8e90e401a9db17d08426d.tar.gz emacs-c439687b4d3a617dbdb8e90e401a9db17d08426d.zip | |
(dired-find-file): Error if line's file does not exist.
| -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." |