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

   1 ;; -*-Emacs-Lisp-*-
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;;
   4 ;; File:         efs-dump.el
   5 ;; Release:      $efs release: 1.24 $
   6 ;; Version:      #Revision: 1.2 $
   7 ;; RCS:
   8 ;; Description:  Install a bare-bones EFS hook into file-name-handler-alist
   9 ;;               for dumping
  10 ;; Author:       Mike Sperber <sperber@informatik.uni-tuebingen.de>
  11 ;;
  12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13
  14 (provide 'efs-dump)
  15
  16 (defconst efs-dump-version
  17   (concat (substring "$efs release: 1.24 $" 14 -2)
  18           "/"
  19           (substring "#Revision: 1.2 $" 11 -2)))
  20
  21 ;;;###autoload
  22 (defvar efs-path-root-regexp "^/[^/:]+:"
  23   "Regexp to match the `/user@host:' root of an efs full path.")
  24
  25 ;;;###autoload
  26 (or (assoc efs-path-root-regexp file-name-handler-alist)
  27     (setq file-name-handler-alist
  28           (cons
  29            (cons efs-path-root-regexp 'remote-path-file-handler-function)
  30            file-name-handler-alist)))
  31
  32 (autoload 'efs-file-handler-function "efs" "\
  33 Function to call special file handlers for remote files." nil nil)
  34
  35 ;;;###autoload
  36 (defun remote-path-file-handler-function (operation &rest args)
  37   "Function to call special file handlers for remote files."
  38   (if allow-remote-paths
  39       (apply 'efs-file-handler-function operation args)
  40     (let ((inhibit-file-name-handlers
  41            (cons 'remote-path-file-handler-function
  42                  (and (eq inhibit-file-name-operation operation)
  43                       inhibit-file-name-handlers)))
  44           (inhibit-file-name-operation operation))
  45       (apply operation args))))
  46
  47 ;;; end of efs-dump.el