[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[debbugs-tracker] bug#6800: closed (23.1; EOT / ^D inserted into comint
From: |
GNU bug Tracking System |
Subject: |
[debbugs-tracker] bug#6800: closed (23.1; EOT / ^D inserted into comint input string) |
Date: |
Fri, 12 Aug 2016 19:53:01 +0000 |
Your message dated Fri, 12 Aug 2016 11:40:03 -0700
with message-id <address@hidden>
and subject line Re: bug#6800: 23.1; EOT / ^D inserted into comint input string
has caused the debbugs.gnu.org bug report #6800,
regarding 23.1; EOT / ^D inserted into comint input string
to be marked as done.
(If you believe you have received this mail in error, please contact
address@hidden)
--
6800: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6800
GNU Bug Tracking System
Contact address@hidden with problems
--- Begin Message ---
Subject: |
23.1; EOT / ^D inserted into comint input string |
Date: |
Thu, 5 Aug 2010 07:58:13 -0700 |
When an input longer than 255 characters is typed into comint (or
shell) an EOT character (ascii 4, ^D) is inserted into the string.
This can cause an error depending how the sub process handles these
extra characters. For example, GHC doesn't like it when an EOT
appears inside of a string:
ghci
> Prelude> putStrLn "<a 241 character string>"
works fine, but
> Prelude> putStrLn "<a 242 character string>"
<interactive>:1:255: lexical error at character '\EOT'
I inserted a function to break up the input into comint-send-string to work around the problem:
(require 'comint)
(defun comint-send-string (process string)
"Like `process-send-string', but also does extra bookkeeping for Comint mode."
(if process
(with-current-buffer (if (processp process)
(process-buffer process)
(get-buffer process))
(comint-snapshot-last-prompt))
(comint-snapshot-last-prompt))
(my-process-send-string process string))
;; Break up the string so that we don't get EOT characters in our input stream.
(defun my-process-send-string (process string)
(if (> (length string) 200)
(progn (process-send-string process (substring string 0 200)) (my-process-send-string process (substring string 200)))
(process-send-string process string)))
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#6800: 23.1; EOT / ^D inserted into comint input string |
Date: |
Fri, 12 Aug 2016 11:40:03 -0700 |
--- End Message ---