diff options
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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). |