Mercurial > emacs
comparison lisp/dired.el @ 17079:7f8981eca2f7
(dired-find-file): Allow specifying coding system interactively.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 26 Feb 1997 12:05:50 +0000 |
| parents | 9ec806f8bbb7 |
| children | 471ce207330c |
comparison
equal
deleted
inserted
replaced
| 17078:874b471d6635 | 17079:7f8981eca2f7 |
|---|---|
| 1174 (dired up)) | 1174 (dired up)) |
| 1175 (dired-goto-file dir))))) | 1175 (dired-goto-file dir))))) |
| 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) |
| 1188 "In dired, visit the file or directory name you click on." | 1188 "In dired, visit the file or directory name you click on." |
| 1189 (interactive "e") | 1189 (interactive "e") |