[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el [emacs-unicode-2] |
Date: |
Mon, 28 Jun 2004 04:36:32 -0400 |
Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.50.2.1 emacs/lisp/net/ange-ftp.el:1.50.2.2
*** emacs/lisp/net/ange-ftp.el:1.50.2.1 Fri Apr 16 12:50:32 2004
--- emacs/lisp/net/ange-ftp.el Mon Jun 28 07:29:48 2004
***************
*** 4116,4121 ****
--- 4116,4124 ----
(format "Getting %s" fn1))
tmp1))))
+ (defun ange-ftp-file-remote-p (file)
+ (when (ange-ftp-ftp-name file) t))
+
(defun ange-ftp-load (file &optional noerror nomessage nosuffix)
(if (ange-ftp-ftp-name file)
(let ((tryfiles (if nosuffix
***************
*** 4257,4265 ****
(let ((fn (get operation 'ange-ftp)))
(if fn (save-match-data (apply fn 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)
;; The following code is commented out because Tramp now deals with
;; Ange-FTP filenames, too.
--- 4260,4265 ----
***************
*** 4327,4332 ****
--- 4327,4333 ----
(put 'file-name-completion 'ange-ftp 'ange-ftp-file-name-completion)
(put 'insert-directory 'ange-ftp 'ange-ftp-insert-directory)
(put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy)
+ (put 'file-remote-p 'ange-ftp 'ange-ftp-file-remote-p)
(put 'unhandled-file-name-directory 'ange-ftp
'ange-ftp-unhandled-file-name-directory)
(put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)
- [Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el [emacs-unicode-2],
Miles Bader <=