From f6de01c7fa0d21ae129d841892314da53e9bf98c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 24 May 2002 22:01:56 +0000 Subject: [PATCH] (read-file-name-internal): Remove the `ange-ftp' property. (ange-ftp-real-read-file-name-internal): Remove. --- lisp/net/ange-ftp.el | 3 --- 1 file changed, 3 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 48dbb55896c..1dfc6927166 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) -- 2.39.2