Mercurial > emacs
changeset 46143:5023425b4a55
(ange-ftp-hook-function): Add file-remote-p prop.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 02 Jul 2002 19:20:42 +0000 |
| parents | 03d01403f6b7 |
| children | 8c00672a779a |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Tue Jul 02 19:13:12 2002 +0000 +++ b/lisp/net/ange-ftp.el Tue Jul 02 19:20:42 2002 +0000 @@ -4336,7 +4336,9 @@ (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).