Mercurial > hg > xemacs-beta

annotate lisp/efs/efs-dired-mule.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 8fc7fe29b841
children 8b8b7f3559a2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
22
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
1 ;; -*-Emacs-Lisp-*-
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
3 ;;
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
4 ;; File: efs-dired.el
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
5 ;; Release: $efs release: 1.15 $
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
6 ;; Version: $Revision: 1.1 $
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
7 ;; RCS:
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
8 ;; Description: Makes efs-dired.el work with MULE.
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
9 ;; Author: Ishikawa Ichiro <ichiro@ccsr.u-tokyo.ac.jp>
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
10 ;; Created: Sat Aug 20 05:25:55 1994
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
11 ;; Modified: Sun Nov 27 12:19:17 1994 by sandy on gandalf
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
12 ;; Language: Emacs-Lisp
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
13 ;;
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
15
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
16 (defconst efs-dired-mule-version
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
17 (concat (substring "$efs release: 1.15 $" 14 -2)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
18 "/"
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
19 (substring "$Revision: 1.1 $" 11 -2)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
20
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
21 ;; Keep the byte-compiler happy
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
22 (defvar efs-version-host-types)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
23 (defvar efs-dired-host-type)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
24
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
25 (defun efs-dired-find-file (&optional coding-system)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
26 "Documented as original"
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
27 (interactive "ZCoding-system: ")
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
28 (let ((file (dired-get-filename)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
29 (if (memq efs-dired-host-type efs-version-host-types)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
30 (setq file (efs-internal-file-name-sans-versions
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
31 efs-dired-host-type file t)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
32 (find-file file coding-system)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
33
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
34 (defun efs-dired-find-file-other-window (&optional display coding-system)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
35 "Documented as original"
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
36 (interactive "P\nZCoding-system: ")
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
37 (if display
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
38 (dired-display-file coding-system)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
39 (let ((file (dired-get-filename)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
40 (if (memq efs-dired-host-type efs-version-host-types)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
41 (setq file (efs-internal-file-name-sans-versions
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
42 efs-dired-host-type file t)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
43 (find-file-other-window file coding-system))))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
44
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
45
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
46 (defun efs-dired-display-file (&optional coding-system)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
47 "Documented as original"
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
48 (interactive "ZCoding-system: ")
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
49 (let ((file (dired-get-filename)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
50 (if (memq efs-dired-host-type efs-version-host-types)
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
51 (setq file (efs-internal-file-name-sans-versions
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
52 efs-dired-host-type file t)))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
53 (display-buffer (find-file-noselect file coding-system))))
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
54
8fc7fe29b841 Import from CVS: tag r19-15b94
cvs
parents:
diff changeset
55 ;;; end of efs-dired-mule.el