comparison lisp/net/ange-ftp.el @ 45498:9eb17953a0f7

(read-file-name-internal): Remove the `ange-ftp' property. (ange-ftp-real-read-file-name-internal): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 24 May 2002 22:01:56 +0000
parents d9e7dc0ccc84
children 2505f1f45d68
comparison
equal deleted inserted replaced
45497:599066f40ebe 45498:9eb17953a0f7
4389 (put 'file-writable-p 'ange-ftp 'ange-ftp-file-writable-p) 4389 (put 'file-writable-p 'ange-ftp 'ange-ftp-file-writable-p)
4390 (put 'file-readable-p 'ange-ftp 'ange-ftp-file-readable-p) 4390 (put 'file-readable-p 'ange-ftp 'ange-ftp-file-readable-p)
4391 (put 'file-executable-p 'ange-ftp 'ange-ftp-file-executable-p) 4391 (put 'file-executable-p 'ange-ftp 'ange-ftp-file-executable-p)
4392 (put 'file-symlink-p 'ange-ftp 'ange-ftp-file-symlink-p) 4392 (put 'file-symlink-p 'ange-ftp 'ange-ftp-file-symlink-p)
4393 (put 'delete-file 'ange-ftp 'ange-ftp-delete-file) 4393 (put 'delete-file 'ange-ftp 'ange-ftp-delete-file)
4394 (put 'read-file-name-internal 'ange-ftp 'ange-ftp-read-file-name-internal)
4395 (put 'verify-visited-file-modtime 'ange-ftp 4394 (put 'verify-visited-file-modtime 'ange-ftp
4396 'ange-ftp-verify-visited-file-modtime) 4395 'ange-ftp-verify-visited-file-modtime)
4397 (put 'file-exists-p 'ange-ftp 'ange-ftp-file-exists-p) 4396 (put 'file-exists-p 'ange-ftp 'ange-ftp-file-exists-p)
4398 (put 'write-region 'ange-ftp 'ange-ftp-write-region) 4397 (put 'write-region 'ange-ftp 'ange-ftp-write-region)
4399 (put 'backup-buffer 'ange-ftp 'ange-ftp-backup-buffer) 4398 (put 'backup-buffer 'ange-ftp 'ange-ftp-backup-buffer)
4464 (ange-ftp-run-real-handler 'file-executable-p args)) 4463 (ange-ftp-run-real-handler 'file-executable-p args))
4465 (defun ange-ftp-real-file-symlink-p (&rest args) 4464 (defun ange-ftp-real-file-symlink-p (&rest args)
4466 (ange-ftp-run-real-handler 'file-symlink-p args)) 4465 (ange-ftp-run-real-handler 'file-symlink-p args))
4467 (defun ange-ftp-real-delete-file (&rest args) 4466 (defun ange-ftp-real-delete-file (&rest args)
4468 (ange-ftp-run-real-handler 'delete-file args)) 4467 (ange-ftp-run-real-handler 'delete-file args))
4469 (defun ange-ftp-real-read-file-name-internal (&rest args)
4470 (ange-ftp-run-real-handler 'read-file-name-internal args))
4471 (defun ange-ftp-real-verify-visited-file-modtime (&rest args) 4468 (defun ange-ftp-real-verify-visited-file-modtime (&rest args)
4472 (ange-ftp-run-real-handler 'verify-visited-file-modtime args)) 4469 (ange-ftp-run-real-handler 'verify-visited-file-modtime args))
4473 (defun ange-ftp-real-file-exists-p (&rest args) 4470 (defun ange-ftp-real-file-exists-p (&rest args)
4474 (ange-ftp-run-real-handler 'file-exists-p args)) 4471 (ange-ftp-run-real-handler 'file-exists-p args))
4475 (defun ange-ftp-real-write-region (&rest args) 4472 (defun ange-ftp-real-write-region (&rest args)