Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents fe104dbd9147
children 1370575f1259
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
2938 (if (> count 0) 2938 (if (> count 0)
2939 filename 2939 filename
2940 (error "Apparently circular symlink path")))) 2940 (error "Apparently circular symlink path"))))
2941 2941
2942 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU> 2942 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
2943 (defun file-remote-p (file) 2943 (defun file-remote-p (file-name)
2944 "Test whether file resides on the local system. 2944 "Test whether FILE-NAME is looked for on a remote system."
2945 The special value 'unknown is returned if no remote file access package 2945 (cond ((not allow-remote-paths) nil)
2946 has been loaded." 2946 ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
2947 (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name)) 2947 (t (efs-ftp-path file-name))))
2948 (t (require 'efs)
2949 (efs-ftp-path file-name))))
2950 2948
2951 ;;; files.el ends here 2949 ;;; files.el ends here