diff options
| author | Kenichi Handa | 1997-05-28 03:35:42 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-05-28 03:35:42 +0000 |
| commit | 53fd9d05e5de9ccf6c1f426f3c0c2ea3842ed4c1 (patch) | |
| tree | 28509d2ae0c5e8649b6cb23122879a43ba8c8df7 | |
| parent | 912192d19ab21caf61298eba8523b557e49d9a3b (diff) | |
| download | emacs-53fd9d05e5de9ccf6c1f426f3c0c2ea3842ed4c1.tar.gz emacs-53fd9d05e5de9ccf6c1f426f3c0c2ea3842ed4c1.zip | |
(dired-find-file): Likewise.
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 9b0891ad262..ba4bb800b41 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1220,12 +1220,12 @@ Creates a buffer if necessary." | |||
| 1220 | 1220 | ||
| 1221 | ;; Force `f' rather than `e' in the mode doc: | 1221 | ;; Force `f' rather than `e' in the mode doc: |
| 1222 | (defalias 'dired-advertised-find-file 'dired-find-file) | 1222 | (defalias 'dired-advertised-find-file 'dired-find-file) |
| 1223 | (defun dired-find-file (&optional coding-system) | 1223 | (defun dired-find-file () |
| 1224 | "In dired, visit the file or directory named on this line." | 1224 | "In dired, visit the file or directory named on this line." |
| 1225 | (interactive "ZCoding-system: ") | 1225 | (interactive) |
| 1226 | (let ((file-name (file-name-sans-versions (dired-get-filename) t))) | 1226 | (let ((file-name (file-name-sans-versions (dired-get-filename) t))) |
| 1227 | (if (file-exists-p file-name) | 1227 | (if (file-exists-p file-name) |
| 1228 | (find-file file-name coding-system) | 1228 | (find-file file-name) |
| 1229 | (error "File no longer exists; type `g' to update Dired buffer")))) | 1229 | (error "File no longer exists; type `g' to update Dired buffer")))) |
| 1230 | 1230 | ||
| 1231 | (defun dired-mouse-find-file-other-window (event) | 1231 | (defun dired-mouse-find-file-other-window (event) |