diff options
| author | Richard M. Stallman | 2002-07-02 19:20:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-07-02 19:20:42 +0000 |
| commit | 06268b4ff9c8faf8ff1c1155cff5f32560d3a079 (patch) | |
| tree | b9d8e58c49c477d24defa8a22ddd7f1fb34213d2 | |
| parent | bbc4541dcf9ee857a2d210360ef6a33a0bb7fd29 (diff) | |
| download | emacs-06268b4ff9c8faf8ff1c1155cff5f32560d3a079.tar.gz emacs-06268b4ff9c8faf8ff1c1155cff5f32560d3a079.zip | |
(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.") | |||
| 4336 | (let ((fn (get operation 'ange-ftp))) | 4336 | (let ((fn (get operation 'ange-ftp))) |
| 4337 | (if fn (save-match-data (apply fn args)) | 4337 | (if fn (save-match-data (apply fn args)) |
| 4338 | (ange-ftp-run-real-handler operation args)))) | 4338 | (ange-ftp-run-real-handler operation args)))) |
| 4339 | 4339 | ;;;###autoload | |
| 4340 | ;;; These file names are remote file names. | ||
| 4341 | (put 'ange-ftp-hook-function 'file-remote-p t) | ||
| 4340 | 4342 | ||
| 4341 | ;;; This regexp takes care of real ange-ftp file names (with a slash | 4343 | ;;; This regexp takes care of real ange-ftp file names (with a slash |
| 4342 | ;;; and colon). | 4344 | ;;; and colon). |