Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 3b3709405255
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
3277 count (1- count))) 3277 count (1- count)))
3278 (if (> count 0) 3278 (if (> count 0)
3279 filename 3279 filename
3280 (error "Apparently circular symlink path")))) 3280 (error "Apparently circular symlink path"))))
3281 3281
3282 (defcustom allow-remote-paths t
3283 "*Set this to nil if you don't want remote paths to access
3284 remote files."
3285 :type 'boolean
3286 :group 'files
3287 )
3288
3282 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU> 3289 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
3290 ;; #### This is broken. It is assumes it knows
3291 ;; about all possible remote file systsems.
3292 ;; This should be a file-name-handler-method.
3283 (defun file-remote-p (file-name) 3293 (defun file-remote-p (file-name)
3284 "Test whether FILE-NAME is looked for on a remote system." 3294 "Test whether FILE-NAME is looked for on a remote system."
3285 (cond ((not allow-remote-paths) nil) 3295 (cond ((not allow-remote-paths) nil)
3286 ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name)) 3296 ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
3287 ((fboundp 'efs-ftp-path) (efs-ftp-path file-name)) 3297 ((fboundp 'efs-ftp-path) (efs-ftp-path file-name))