mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 22:11:45 -07:00
Code Issues Projects Releases Wiki Activity

(dired-find-file): Allow specifying coding system interactively.

Browse source
This commit is contained in:
Kenichi Handa 1997-02-26 12:05:50 +00:00
parent 6eba8645d5
commit 94fa4eb82b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired.el
View file

@ -1176,12 +1176,12 @@ Creates a buffer if necessary."
;; Force `f' rather than `e' in the mode doc:
(defalias 'dired-advertised-find-file 'dired-find-file)
(defun dired-find-file ()
(defun dired-find-file (&optional coding-system)
"In dired, visit the file or directory named on this line."
(interactive)
(interactive "ZCoding-system: ")
(let ((file-name (file-name-sans-versions (dired-get-filename) t)))
(if (file-exists-p file-name)
(find-file file-name)
(find-file file-name coding-system)
(error "File no longer exists; type `g' to update Dired buffer"))))
(defun dired-mouse-find-file-other-window (event)