Mercurial > emacs
changeset 5984:ec9477c8db1d
(ange-ftp-insert-file-contents): New arg REPLACE.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 17 Feb 1994 23:19:36 +0000 |
| parents | 636065f548d6 |
| children | e3987bd63d2e |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Thu Feb 17 22:09:05 1994 +0000 +++ b/lisp/ange-ftp.el Thu Feb 17 23:19:36 1994 +0000 @@ -857,7 +857,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.40 $") +(defconst ange-ftp-version "$Revision: 1.41 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -2906,7 +2906,7 @@ (ange-ftp-add-file-entry filename)) (ange-ftp-real-write-region start end filename append visit)))) -(defun ange-ftp-insert-file-contents (filename &optional visit beg end) +(defun ange-ftp-insert-file-contents (filename &optional visit beg end replace) (barf-if-buffer-read-only) (setq filename (expand-file-name filename)) (let ((parsed (ange-ftp-ftp-name filename))) @@ -2946,9 +2946,8 @@ (ange-ftp-real-file-readable-p temp)) (setq size - (nth 1 (ange-ftp-real-insert-file-contents temp - visit - beg end))) + (nth 1 (ange-ftp-real-insert-file-contents + temp visit beg end replace))) (signal 'ftp-error (list "Opening input file:" @@ -2967,7 +2966,7 @@ (list "Opening input file" filename)))) - (ange-ftp-real-insert-file-contents filename visit beg end)))) + (ange-ftp-real-insert-file-contents filename visit beg end replace)))) (defun ange-ftp-expand-symlink (file dir) (if (file-name-absolute-p file)