From: Kenichi Handa <handa@m17n.org>
Date: Wed, 26 Feb 1997 12:05:50 +0000 (+0000)
Subject: (dired-find-file): Allow specifying coding system interactively.
X-Git-Tag: emacs-20.1~2866
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94fa4eb82bbf19e7909dc817d17dcc88a3001c0a;p=emacs.git

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

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