|
22
|
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
2 ;;
|
|
|
3 ;; File: dired-mule.el
|
|
|
4 ;; Dired Version: $Revision: 1.1 $
|
|
|
5 ;; RCS:
|
|
|
6 ;; Description: MULE support for dired.
|
|
|
7 ;; Created: Sun Jul 17 14:45:12 1994 by sandy on ibm550
|
|
|
8 ;;
|
|
|
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
10
|
|
|
11 ;;; Acknowledgements:
|
|
|
12 ;;
|
|
|
13 ;; Ishikawa Ichiro for sending MULE patches and information.
|
|
|
14
|
|
|
15 (require 'dired)
|
|
|
16
|
|
|
17 (defun dired-find-file (&optional coding-system)
|
|
|
18 "In dired, visit the file or directory named on this line."
|
|
|
19 (interactive "ZCoding-system: ")
|
|
|
20 (find-file (dired-get-filename) coding-system))
|
|
|
21
|
|
|
22 (defun dired-find-file-other-window (&optional display coding-system)
|
|
|
23 "In dired, visit this file or directory in another window.
|
|
|
24 With a prefix, the file is displayed, but the window is not selected."
|
|
|
25 (interactive "P\nZCoding-system: ")
|
|
|
26 (if display
|
|
|
27 (dired-display-file coding-system)
|
|
|
28 (find-file-other-window (dired-get-filename) coding-system)))
|
|
|
29
|
|
|
30 (defun dired-display-file (&optional coding-system)
|
|
|
31 "In dired, displays this file or directory in the other window."
|
|
|
32 (interactive "ZCoding-system: ")
|
|
|
33 (display-buffer
|
|
|
34 (find-file-noselect (dired-get-filename) coding-system)))
|
|
|
35
|
|
|
36 ;;; end of dired-mule.el
|
