Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/files.el	Mon Aug 13 10:55:35 2007 +0200
+++ b/lisp/files.el	Mon Aug 13 10:56:21 2007 +0200
@@ -3279,7 +3279,17 @@
 	filename
       (error "Apparently circular symlink path"))))
 
+(defcustom allow-remote-paths t
+   "*Set this to nil if you don't want remote paths to access
+remote files."
+   :type 'boolean
+   :group 'files
+   )
+
 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
+;; #### This is broken. It is assumes it knows
+;;      about all possible remote file systsems.
+;;      This should be a file-name-handler-method.
 (defun file-remote-p (file-name)
   "Test whether FILE-NAME is looked for on a remote system."
   (cond ((not allow-remote-paths) nil)