Mercurial > emacs
comparison lisp/dired.el @ 17988:2e732d9d5b79
(dired-find-file): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 28 May 1997 03:35:42 +0000 |
| parents | 0714535d0e28 |
| children | c64b7a17eea9 |
comparison
equal
deleted
inserted
replaced
| 17987:2d9818a04c36 | 17988:2e732d9d5b79 |
|---|---|
| 1218 (dired up)) | 1218 (dired up)) |
| 1219 (dired-goto-file dir))))) | 1219 (dired-goto-file dir))))) |
| 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) |
| 1232 "In dired, visit the file or directory name you click on." | 1232 "In dired, visit the file or directory name you click on." |
| 1233 (interactive "e") | 1233 (interactive "e") |