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