Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-fnh.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 8fc7fe29b841
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-fnh.el 4 ;; File: efs-fnh.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.3 $ 6 ;; Version: #Revision: 1.3 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Look for the emacs version, and install into 8 ;; Description: Look for the emacs version, and install into
9 ;; the file-name-handler-alist 9 ;; the file-name-handler-alist
10 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 10 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
11 ;; 11 ;;
18 (provide 'efs-fnh) 18 (provide 'efs-fnh)
19 19
20 (defconst efs-fnh-version 20 (defconst efs-fnh-version
21 (concat (substring "$efs release: 1.15 $" 14 -2) 21 (concat (substring "$efs release: 1.15 $" 14 -2)
22 "/" 22 "/"
23 (substring "$Revision: 1.3 $" 11 -2))) 23 (substring "#Revision: 1.3 $" 11 -2)))
24 24
25 ;;;; ---------------------------------------------------------------- 25 ;;;; ----------------------------------------------------------------
26 ;;;; Loading emacs version files 26 ;;;; Loading emacs version files
27 ;;;; ---------------------------------------------------------------- 27 ;;;; ----------------------------------------------------------------
28 28
94 (and (not (eq (cdr x) fn)) x))) 94 (and (not (eq (cdr x) fn)) x)))
95 file-name-handler-alist))) 95 file-name-handler-alist)))
96 96
97 (defun efs-root-handler-function (operation &rest args) 97 (defun efs-root-handler-function (operation &rest args)
98 "Function to handle completion in the root directory." 98 "Function to handle completion in the root directory."
99 (let ((handler (get operation 'efs-root))) 99 (let ((handler (and (if (boundp 'allow-remote-paths)
100 allow-remote-paths
101 t)
102 (get operation 'efs-root))))
100 (if handler 103 (if handler
101 (apply handler args) 104 (apply handler args)
102 (let ((inhibit-file-name-handlers 105 (let ((inhibit-file-name-handlers
103 (cons 'efs-root-handler-function 106 (cons 'efs-root-handler-function
104 (and (eq inhibit-file-name-operation operation) 107 (and (eq inhibit-file-name-operation operation)
133 (progn 136 (progn
134 (setq dired-entry x) 137 (setq dired-entry x)
135 nil) 138 nil)
136 (and (not 139 (and (not
137 (memq (cdr x) 140 (memq (cdr x)
138 '(efs-file-handler-function 141 '(remote-path-file-handler-function
142 efs-file-handler-function
139 efs-root-handler-function 143 efs-root-handler-function
140 ange-ftp-hook-function 144 ange-ftp-hook-function
141 ange-ftp-completion-hook-function))) 145 ange-ftp-completion-hook-function)))
142 x)))) 146 x))))
143 file-name-handler-alist)))) 147 file-name-handler-alist))))