From 5e180bc02c0ea7e338c00cdb56204ef72c548fb3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 19 Jun 1993 01:13:23 +0000 Subject: (ange-ftp-insert-file-contents): Handle extra args BEG, END. --- lisp/ange-ftp.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/ange-ftp.el') 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) -- cgit v1.2.1