From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Feb 1994 23:19:36 +0000 (+0000)
Subject: (ange-ftp-insert-file-contents): New arg REPLACE.
X-Git-Tag: emacs-19.34~9868
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21cbf919f5a849deb750165c5f567f541531670f;p=emacs.git

(ange-ftp-insert-file-contents): New arg REPLACE.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index c4fa476ea21..54b30035d23 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number."
 ;;;; 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 @@ 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 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 @@ system TYPE.")
 			      (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 @@ system TYPE.")
 		    (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)