bug#1523: [Ivan Shmakov] process-send-string apparently mangles \r into \n

[Sven Joachim <svenjoac@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 102 bytes --]

I received the following report via the Debian bug tracking system.
It is reproducible in the trunk.


[-- Attachment #2: Type: message/rfc822, Size: 1689 bytes --]

From: Ivan Shmakov <oneingray@gmail.com>
To: submit@bugs.debian.org
Cc: Ivan Shmakov <oneingray@gmail.com>
Subject: Bug#508300: process-send-string apparently mangles \r into \n
Date: Wed, 10 Dec 2008 01:14:09 +0600
Message-ID: <87abb5gnzy.fsf@violet.siamics.int>

Package: emacs22
Version: 22.2+2-5

	After running the following program:

(let* ((coding-system-for-read  'binary)
       (coding-system-for-write 'binary)
       (p (start-process "foo" "*foo*" "od" "-td1")))
    (process-send-string p "\r\n")
    (process-send-eof p))
;; => #<process foo>

	the `*foo*' buffer contains:

--cut: *foo*--
0000000   10   10
0000002

Process foo finished
--cut: *foo*--

	While I'd expect the following instead:

--cut: *foo*--
0000000   13   10
0000002

Process foo finished
--cut: *foo*--

	Compare:

(let ((coding-system-for-read  'binary)
      (coding-system-for-write 'binary))
  (save-excursion
    (set-buffer "*foo*")
    (let* ((start (point))
	   (end   (progn (insert "\r\n") (point))))
      (call-process-region start end "od" t t t "-td1"))))

--cut: *foo*--
0000000   13   10
0000002
--cut: *foo*--