40
|
1 ;; -*-Emacs-Lisp-*-
|
|
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
3 ;;
|
|
4 ;; File: efs-dump.el
|
|
5 ;; Release: $efs release: 1.15 $
|
|
6 ;; Version: $Revision: 1.1 $
|
|
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 ;;;###autoload
|
|
15 (setq file-name-handler-alist
|
|
16 (cons
|
|
17 (cons efs-path-root-regexp 'efs-file-handler-function)
|
|
18 file-name-handler-alist))
|