diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-19 01:13:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-19 01:13:23 +0000 |
| commit | 5e180bc02c0ea7e338c00cdb56204ef72c548fb3 (patch) | |
| tree | 4e3540e1035f42dd7aa777fe9685abc3918cb2b3 /lisp/ange-ftp.el | |
| parent | 415445e2ba2493e3b575520a0b9774e983579c8d (diff) | |
| download | emacs-5e180bc02c0ea7e338c00cdb56204ef72c548fb3.tar.gz | |
(ange-ftp-insert-file-contents): Handle extra args BEG, END.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index f359cbe8d7c..78f83c3e2c0 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ system TYPE.") (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 @@ system TYPE.") (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 @@ system TYPE.") (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) |