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

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;
   3 ;; File:          dired-mule.el
   4 ;; Dired Version: 7.17
   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