/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.2.3 by uid65618, Thu Feb 5 14:48:34 2004 UTC revision 1.35.2.4 by miles, Tue Jul 6 09:31:51 2004 UTC
# Line 4116  directory, so that Emacs will know its c Line 4116  directory, so that Emacs will know its c
4116                                         (format "Getting %s" fn1))                                         (format "Getting %s" fn1))
4117            tmp1))))            tmp1))))
4118    
4119    (defun ange-ftp-file-remote-p (file)
4120      (when (ange-ftp-ftp-name file) t))
4121    
4122  (defun ange-ftp-load (file &optional noerror nomessage nosuffix)  (defun ange-ftp-load (file &optional noerror nomessage nosuffix)
4123    (if (ange-ftp-ftp-name file)    (if (ange-ftp-ftp-name file)
4124        (let ((tryfiles (if nosuffix        (let ((tryfiles (if nosuffix
# Line 4257  NEWNAME should be the name to give the n Line 4260  NEWNAME should be the name to give the n
4260    (let ((fn (get operation 'ange-ftp)))    (let ((fn (get operation 'ange-ftp)))
4261      (if fn (save-match-data (apply fn args))      (if fn (save-match-data (apply fn args))
4262        (ange-ftp-run-real-handler operation args))))        (ange-ftp-run-real-handler operation args))))
 ;;;###autoload  
 ;;; These file names are remote file names.  
 (put 'ange-ftp-hook-function 'file-remote-p t)  
4263    
4264  ;; The following code is commented out because Tramp now deals with  ;; The following code is commented out because Tramp now deals with
4265  ;; Ange-FTP filenames, too.  ;; Ange-FTP filenames, too.
# Line 4327  NEWNAME should be the name to give the n Line 4327  NEWNAME should be the name to give the n
4327  (put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion)  (put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion)
4328  (put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory)  (put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory)
4329  (put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy)  (put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy)
4330    (put 'file-remote-p 'ange-ftp 'ange-ftp-file-remote-p)
4331  (put 'unhandled-file-name-directory 'ange-ftp  (put 'unhandled-file-name-directory 'ange-ftp
4332       'ange-ftp-unhandled-file-name-directory)       'ange-ftp-unhandled-file-name-directory)
4333  (put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)  (put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)

Legend:
Removed from v.1.35.2.3  
changed lines
  Added in v.1.35.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26