[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.34 emacs/lisp/net/ange-ftp.el:1.35
*** emacs/lisp/net/ange-ftp.el:1.34     Tue May 21 19:21:11 2002
--- emacs/lisp/net/ange-ftp.el  Fri May 24 18:01:56 2002
***************
*** 4391,4397 ****
  (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)
--- 4391,4396 ----
***************
*** 4466,4473 ****
    (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)
--- 4465,4470 ----