mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(comint-input-chunk-size): Variable deleted.

Browse source 
(comint-send-string): Make it an alias for process-send-string.
(comint-send-region): Make it an alias for process-send-region.
This commit is contained in:
Richard M. Stallman 1994-09-24 04:58:15 +00:00
parent 7084ad0446
commit 7df7d5b3fe
1 changed files with 2 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/comint.el
View file

@ -1416,31 +1416,8 @@ This function could be in the list `comint-output-filter-functions'."
;;; Low-level process communication
(defvar comint-input-chunk-size 512
"*Long inputs are sent to comint processes in chunks of this size.
If your process is choking on big inputs, try lowering the value.")
(defun comint-send-string (proc str)
"Send PROCESS the contents of STRING as input.
This is equivalent to `process-send-string', except that long input strings
are broken up into chunks of size `comint-input-chunk-size'. Processes
are given a chance to output between chunks. This can help prevent processes
from hanging when you send them long inputs on some OS's."
(let* ((len (length str))
(i (min len comint-input-chunk-size)))
(process-send-string proc (substring str 0 i))
(while (< i len)
(let ((next-i (+ i comint-input-chunk-size)))
(accept-process-output)
(sit-for 0)
(process-send-string proc (substring str i (min len next-i)))
(setq i next-i)))))
(defun comint-send-region (proc start end)
"Sends to PROC the region delimited by START and END.
This is a replacement for `process-send-region' that tries to keep
your process from hanging on long inputs. See `comint-send-string'."
(comint-send-string proc (buffer-substring start end)))
(defalias 'comint-send-string 'process-send-string)
(defalias 'comint-send-region 'process-send-region)
;;; Random input hackage