Commit 06268b4f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent bbc4541d
......@@ -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))))
;;; 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).
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment