Mercurial > emacs
changeset 3831:9d48091cd976
(ange-ftp-insert-file-contents): Handle extra args BEG, END.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jun 1993 01:13:23 +0000 |
| parents | 205d69567177 |
| children | ea6739f778a5 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sat Jun 19 01:08:14 1993 +0000 +++ b/lisp/ange-ftp.el Sat Jun 19 01:13:23 1993 +0000 @@ -856,7 +856,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.26 $") +(defconst ange-ftp-version "$Revision: 1.27 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -2900,7 +2900,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) +(defun ange-ftp-insert-file-contents (filename &optional visit beg end) (barf-if-buffer-read-only) (setq filename (expand-file-name filename)) (let ((parsed (ange-ftp-ftp-name filename))) @@ -2941,7 +2941,8 @@ (setq size (nth 1 (ange-ftp-real-insert-file-contents temp - visit))) + visit + beg end))) (signal 'ftp-error (list "Opening input file:" @@ -2958,7 +2959,7 @@ (list "Opening input file" filename)))) - (ange-ftp-real-insert-file-contents filename visit)))) + (ange-ftp-real-insert-file-contents filename visit beg end)))) (defun ange-ftp-expand-symlink (file dir) (if (file-name-absolute-p file)