Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-dump.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8b8b7f3559a2
children
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
17 (concat (substring "$efs release: 1.15 $" 14 -2) 17 (concat (substring "$efs release: 1.15 $" 14 -2)
18 "/" 18 "/"
19 (substring "#Revision: 1.1 $" 11 -2))) 19 (substring "#Revision: 1.1 $" 11 -2)))
20 20
21 ;;;###autoload 21 ;;;###autoload
22 (defvar allow-remote-paths t
23 "*Set this to nil if you don't want remote paths to access
24 remote files.")
25
26 ;;;###autoload
27 (or (assoc efs-path-root-regexp file-name-handler-alist) 22 (or (assoc efs-path-root-regexp file-name-handler-alist)
28 (setq file-name-handler-alist 23 (setq file-name-handler-alist
29 (cons 24 (cons
30 (cons efs-path-root-regexp 'remote-path-file-handler-function) 25 (cons efs-path-root-regexp 'remote-path-file-handler-function)
31 file-name-handler-alist))) 26 file-name-handler-alist)))
39 (cons 'remote-path-file-handler-function 34 (cons 'remote-path-file-handler-function
40 (and (eq inhibit-file-name-operation operation) 35 (and (eq inhibit-file-name-operation operation)
41 inhibit-file-name-handlers))) 36 inhibit-file-name-handlers)))
42 (inhibit-file-name-operation operation)) 37 (inhibit-file-name-operation operation))
43 (apply operation args)))) 38 (apply operation args))))
39
40 ;;; end of efs-dump.el