cgit.sxemacs.org Git - packages/blob - xemacs-packages/efs/efs-dired-mule.el

   1 ;; -*-Emacs-Lisp-*-
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;;
   4 ;; File:         efs-dired.el
   5 ;; Release:      $efs release: 1.24 $
   6 ;; Version:      #Revision: 1.2 $
   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.24 $" 14 -2)
  18           "/"
  19           (substring "#Revision: 1.2 $" 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     (if coding-system
  33         (find-file file coding-system)
  34       (find-file file))))
  35
  36 (defun efs-dired-find-file-other-window (&optional display coding-system)
  37   "Documented as original"
  38   (interactive "P\nZCoding-system: ")
  39   (if display
  40       (dired-display-file coding-system)
  41     (let ((file (dired-get-filename)))
  42       (if (memq efs-dired-host-type efs-version-host-types)
  43           (setq file (efs-internal-file-name-sans-versions
  44                       efs-dired-host-type file t)))
  45       (if coding-system
  46           (find-file-other-window file coding-system)
  47         (find-file-other-window file)))))
  48
  49
  50 (defun efs-dired-display-file (&optional coding-system)
  51   "Documented as original"
  52   (interactive "ZCoding-system: ")
  53   (let ((file (dired-get-filename)))
  54     (if (memq efs-dired-host-type efs-version-host-types)
  55         (setq file (efs-internal-file-name-sans-versions
  56                     efs-dired-host-type file t)))
  57     (display-buffer
  58      (if coding-system
  59          (find-file-noselect file coding-system)
  60        (find-file-noselect file)))))
  61
  62 ;;; end of efs-dired-mule.el