mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 03:37:38 -08:00
Code Issues Projects Releases Wiki Activity

(ange-ftp-insert-file-contents): Handle extra args BEG, END.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-19 01:13:23 +00:00
parent 415445e2ba
commit 5e180bc02c
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ange-ftp.el
View file

@ -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)