1249 |
:group 'tramp |
:group 'tramp |
1250 |
:type '(repeat (list variable function))) |
:type '(repeat (list variable function))) |
1251 |
|
|
1252 |
|
;; Chunked sending kluge. We set this to 500 for black-listed constellations |
1253 |
|
;; known to have a bug in `process-send-string'; some ssh connections appear |
1254 |
|
;; to drop bytes when data is sent too quickly. |
1255 |
|
(defcustom tramp-chunksize |
1256 |
|
(when (and (not (featurep 'xemacs)) |
1257 |
|
(memq system-type '(hpux))) |
1258 |
|
500) |
1259 |
|
"*If non-nil, chunksize for sending input to local process. |
1260 |
|
It is necessary only on systems which have a buggy `process-send-string' |
1261 |
|
implementation. The necessity, whether this variable must be set, can be |
1262 |
|
checked via the following code: |
1263 |
|
|
1264 |
|
(with-temp-buffer |
1265 |
|
(let ((bytes 1000) |
1266 |
|
(proc (start-process (buffer-name) (current-buffer) \"wc\" \"-c\"))) |
1267 |
|
(process-send-string proc (make-string bytes ?x)) |
1268 |
|
(process-send-eof proc) |
1269 |
|
(process-send-eof proc) |
1270 |
|
(accept-process-output proc 1) |
1271 |
|
(goto-char (point-min)) |
1272 |
|
(re-search-forward \"\\\\w+\") |
1273 |
|
(message \"Bytes sent: %s\\tBytes received: %s\" bytes (match-string 0)))) |
1274 |
|
|
1275 |
|
Please raise a bug report via \"M-x tramp-bug\" if your system needs |
1276 |
|
this variable to be set as well." |
1277 |
|
:group 'tramp |
1278 |
|
:type 'integer) |
1279 |
|
|
1280 |
;;; Internal Variables: |
;;; Internal Variables: |
1281 |
|
|
1282 |
(defvar tramp-buffer-file-attributes nil |
(defvar tramp-buffer-file-attributes nil |
5630 |
(pop-to-buffer (current-buffer)) |
(pop-to-buffer (current-buffer)) |
5631 |
(funcall 'signal signal (apply 'format fmt args)))) |
(funcall 'signal signal (apply 'format fmt args)))) |
5632 |
|
|
|
;; Chunked sending kluge. We set this to 500 just to be on the |
|
|
;; safe side; some ssh connections appear to drop bytes when data |
|
|
;; is sent too quickly. |
|
|
;; This happens when using `ssh' method using GNU Emacs 20.7.1 |
|
|
;; (hppa1.1-hp-hpux10.20, Motif). (The connection is made to |
|
|
;; localhost.) |
|
|
(defvar tramp-chunksize 500 |
|
|
"If non-nil, chunksize for sending things to remote host.") |
|
|
|
|
5633 |
(defun tramp-send-region (multi-method method user host start end) |
(defun tramp-send-region (multi-method method user host start end) |
5634 |
"Send the region from START to END to remote command |
"Send the region from START to END to remote command |
5635 |
running as USER on HOST using METHOD." |
running as USER on HOST using METHOD." |
5642 |
(while (< pos end) |
(while (< pos end) |
5643 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
5644 |
multi-method method user host 10 |
multi-method method user host 10 |
5645 |
"Sending chunk from %s to %s" pos end) |
"Sending chunk from %s to %s" |
5646 |
|
pos |
5647 |
|
(min (+ pos tramp-chunksize) |
5648 |
|
end)) |
5649 |
(process-send-region proc |
(process-send-region proc |
5650 |
pos |
pos |
5651 |
(min (+ pos tramp-chunksize) |
(min (+ pos tramp-chunksize) |
6395 |
tramp-multi-actions |
tramp-multi-actions |
6396 |
tramp-terminal-type |
tramp-terminal-type |
6397 |
tramp-shell-prompt-pattern |
tramp-shell-prompt-pattern |
6398 |
|
tramp-chunksize |
6399 |
|
|
6400 |
;; Non-tramp variables of interest |
;; Non-tramp variables of interest |
6401 |
shell-prompt-pattern |
shell-prompt-pattern |