diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-07-02 19:20:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-07-02 19:20:42 +0000 |
| commit | 06268b4ff9c8faf8ff1c1155cff5f32560d3a079 (patch) | |
| tree | b9d8e58c49c477d24defa8a22ddd7f1fb34213d2 | |
| parent | bbc4541dcf9ee857a2d210360ef6a33a0bb7fd29 (diff) | |
| download | emacs-06268b4ff9c8faf8ff1c1155cff5f32560d3a079.tar.gz | |
(ange-ftp-hook-function): Add file-remote-p prop.
| -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). |