# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1022277716 0
# Node ID 9eb17953a0f7671dd764ac6296c161823606a9f0
# Parent  599066f40ebef530d57b5e3686087c3532876343
(read-file-name-internal): Remove the `ange-ftp' property.
(ange-ftp-real-read-file-name-internal): Remove.

diff -r 599066f40ebe -r 9eb17953a0f7 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Fri May 24 22:00:21 2002 +0000
+++ b/lisp/net/ange-ftp.el	Fri May 24 22:01:56 2002 +0000
@@ -4391,7 +4391,6 @@
 (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 @@
   (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)