diff options
| -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 ffb6bd22831..2d37d31540d 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1176,12 +1176,12 @@ Creates a buffer if necessary." | |||
| 1176 | 1176 | ||
| 1177 | ;; Force `f' rather than `e' in the mode doc: | 1177 | ;; Force `f' rather than `e' in the mode doc: |
| 1178 | (defalias 'dired-advertised-find-file 'dired-find-file) | 1178 | (defalias 'dired-advertised-find-file 'dired-find-file) |
| 1179 | (defun dired-find-file () | 1179 | (defun dired-find-file (&optional coding-system) |
| 1180 | "In dired, visit the file or directory named on this line." | 1180 | "In dired, visit the file or directory named on this line." |
| 1181 | (interactive) | 1181 | (interactive "ZCoding-system: ") |
| 1182 | (let ((file-name (file-name-sans-versions (dired-get-filename) t))) | 1182 | (let ((file-name (file-name-sans-versions (dired-get-filename) t))) |
| 1183 | (if (file-exists-p file-name) | 1183 | (if (file-exists-p file-name) |
| 1184 | (find-file file-name) | 1184 | (find-file file-name coding-system) |
| 1185 | (error "File no longer exists; type `g' to update Dired buffer")))) | 1185 | (error "File no longer exists; type `g' to update Dired buffer")))) |
| 1186 | 1186 | ||
| 1187 | (defun dired-mouse-find-file-other-window (event) | 1187 | (defun dired-mouse-find-file-other-window (event) |