diff options
| author | Stefan Monnier <[email protected]> | 2002-05-24 22:01:56 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-05-24 22:01:56 +0000 |
| commit | f6de01c7fa0d21ae129d841892314da53e9bf98c (patch) | |
| tree | bfad6440b091adc31ecba0ca5a70e250033ce7cd /lisp | |
| parent | 6f1d50da8340f9060f0be59b84e85b045c5832ed (diff) | |
(read-file-name-internal): Remove the `ange-ftp' property.
(ange-ftp-real-read-file-name-internal): Remove.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 48dbb55896..1dfc692716 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4391,7 +4391,6 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (put 'file-executable-p 'ange-ftp 'ange-ftp-file-executable-p) (put 'file-symlink-p 'ange-ftp 'ange-ftp-file-symlink-p) (put 'delete-file 'ange-ftp 'ange-ftp-delete-file) -(put 'read-file-name-internal 'ange-ftp 'ange-ftp-read-file-name-internal) (put 'verify-visited-file-modtime 'ange-ftp 'ange-ftp-verify-visited-file-modtime) (put 'file-exists-p 'ange-ftp 'ange-ftp-file-exists-p) @@ -4466,8 +4465,6 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (ange-ftp-run-real-handler 'file-symlink-p args)) (defun ange-ftp-real-delete-file (&rest args) (ange-ftp-run-real-handler 'delete-file args)) -(defun ange-ftp-real-read-file-name-internal (&rest args) - (ange-ftp-run-real-handler 'read-file-name-internal args)) (defun ange-ftp-real-verify-visited-file-modtime (&rest args) (ange-ftp-run-real-handler 'verify-visited-file-modtime args)) (defun ange-ftp-real-file-exists-p (&rest args) |