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