Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
3003 (if (> count 0) 3003 (if (> count 0)
3004 filename 3004 filename
3005 (error "Apparently circular symlink path")))) 3005 (error "Apparently circular symlink path"))))
3006 3006
3007 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU> 3007 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
3008 (defun file-remote-p (file) 3008 (defun file-remote-p (file-name)
3009 "Test whether file resides on the local system. 3009 "Test whether FILE-NAME is looked for on a remote system."
3010 The special value 'unknown is returned if no remote file access package 3010 (cond ((not allow-remote-paths) nil)
3011 has been loaded." 3011 ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name))
3012 (cond ((featurep 'ange-ftp) (ange-ftp-ftp-path file-name)) 3012 (t (efs-ftp-path file-name))))
3013 (t (require 'efs)
3014 (efs-ftp-path file-name))))
3015 3013
3016 ;; Written in C in FSF 3014 ;; Written in C in FSF
3017 (defun insert-file-contents (filename &optional visit beg end replace) 3015 (defun insert-file-contents (filename &optional visit beg end replace)
3018 "Insert contents of file FILENAME after point. 3016 "Insert contents of file FILENAME after point.
3019 Returns list of absolute file name and length of data inserted. 3017 Returns list of absolute file name and length of data inserted.