From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 2 Jul 2002 19:20:42 +0000 (+0000)
Subject: (ange-ftp-hook-function): Add file-remote-p prop.
X-Git-Tag: ttn-vms-21-2-B4~14337
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06268b4ff9c8faf8ff1c1155cff5f32560d3a079;p=emacs.git

(ange-ftp-hook-function): Add file-remote-p prop.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1115b18f940..187acccf938 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4336,7 +4336,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
   (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)
 
 ;;; This regexp takes care of real ange-ftp file names (with a slash
 ;;; and colon).