Mercurial > hg > xemacs-beta

comparison lisp/efs/dired-mule.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 8fc7fe29b841
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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