Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix a recent change wrt 'comint-max-line-length'

Browse source 
* lisp/progmodes/python.el (python-shell-send-string): Only heed
'comint-max-line-length' for subprocesses with which we
communicate via PTYs.  (Bug#49822)

* lisp/comint.el (comint-max-line-length): Doc fix.  Add a value
for MS-Windows.
This commit is contained in:
Eli Zaretskii 2021-09-09 20:08:56 +03:00
parent 8c023e5ea1
commit bac632aaec
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/comint.el
View file

@ -482,8 +482,11 @@ executed once, when the buffer is created."
(defconst comint-max-line-length
(pcase system-type
('gnu/linux 4096)
('windows-nt 8196)
(_ 1024))
"Maximum line length, in bytes, accepted by the inferior process.")
"Maximum line length, in bytes, accepted by the inferior process.
This setting is only meaningful when communicating with subprocesses
via PTYs.")
(defvar comint-mode-map
(let ((map (make-sparse-keymap)))

3
lisp/progmodes/python.el
View file

@ -3152,7 +3152,8 @@ t when called interactively."
(python-shell--encode-string string)
(python-shell--encode-string (or (buffer-file-name)
"<string>")))))
(if (<= (string-bytes code) comint-max-line-length)
(if (or (null (process-connection-type process))
(<= (string-bytes code) comint-max-line-length))
(comint-send-string process code)
(let* ((temp-file-name (with-current-buffer (process-buffer process)
(python-shell--save-temp-file string)))