From 06268b4ff9c8faf8ff1c1155cff5f32560d3a079 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 2 Jul 2002 19:20:42 +0000
Subject: [PATCH] (ange-ftp-hook-function): Add file-remote-p prop.

---
 lisp/net/ange-ftp.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 1115b18f94..187acccf93 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).
-- 
2.20.1