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") |