From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.bugs Subject: bug#14287: 24.3.50; Some *-dos coding systems remove characters before LF for some files. Date: Sat, 27 Apr 2013 15:55:50 +0300 Message-ID: <83zjwkrv3d.fsf@gnu.org> References: <87sj2cfafc.wl%%xmue@d1.dion.ne.jp> Reply-To: Eli Zaretskii NNTP-Posting-Host: plane.gmane.org X-Trace: ger.gmane.org 1367067418 10262 80.91.229.3 (27 Apr 2013 12:56:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 27 Apr 2013 12:56:58 +0000 (UTC) Cc: 14287@debbugs.gnu.org To: Kazuhiro Ito Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Apr 27 14:57:02 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UW4gW-0006yK-Qn for geb-bug-gnu-emacs@m.gmane.org; Sat, 27 Apr 2013 14:57:00 +0200 Original-Received: from localhost ([::1]:41099 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UW4gW-0007fw-BK for geb-bug-gnu-emacs@m.gmane.org; Sat, 27 Apr 2013 08:57:00 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:51559) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UW4gT-0007fh-92 for bug-gnu-emacs@gnu.org; Sat, 27 Apr 2013 08:56:58 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UW4gS-0004nB-C4 for bug-gnu-emacs@gnu.org; Sat, 27 Apr 2013 08:56:57 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:42157) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UW4gS-0004n7-8C for bug-gnu-emacs@gnu.org; Sat, 27 Apr 2013 08:56:56 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1UW4gY-00058j-19 for bug-gnu-emacs@gnu.org; Sat, 27 Apr 2013 08:57:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Eli Zaretskii Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 27 Apr 2013 12:57:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14287 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 14287-submit@debbugs.gnu.org id=B14287.136706741119741 (code B ref 14287); Sat, 27 Apr 2013 12:57:01 +0000 Original-Received: (at 14287) by debbugs.gnu.org; 27 Apr 2013 12:56:51 +0000 Original-Received: from localhost ([127.0.0.1]:46266 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UW4gM-00058L-Q0 for submit@debbugs.gnu.org; Sat, 27 Apr 2013 08:56:51 -0400 Original-Received: from mtaout20.012.net.il ([80.179.55.166]:52439) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1UW4gJ-00058B-Cf for 14287@debbugs.gnu.org; Sat, 27 Apr 2013 08:56:49 -0400 Original-Received: from conversion-daemon.a-mtaout20.012.net.il by a-mtaout20.012.net.il (HyperSendmail v2007.08) id <0MLW00H00ZV3R600@a-mtaout20.012.net.il> for 14287@debbugs.gnu.org; Sat, 27 Apr 2013 15:56:04 +0300 (IDT) Original-Received: from HOME-C4E4A596F7 ([87.69.4.28]) by a-mtaout20.012.net.il (HyperSendmail v2007.08) with ESMTPA id <0MLW00HJMZXGEK90@a-mtaout20.012.net.il>; Sat, 27 Apr 2013 15:56:04 +0300 (IDT) In-reply-to: <87sj2cfafc.wl%%xmue@d1.dion.ne.jp> X-012-Sender: halo1@inter.net.il X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:73769 Archived-At: > Date: Sat, 27 Apr 2013 21:03:03 +0900 > From: Kazuhiro Ito > > When I evaluate the below code on trunk, I get different result from 24.3. > > (let ((file (expand-file-name "HELLO" data-directory))) > (mapcar > (lambda (coding) > (with-temp-buffer > (let ((coding-system-for-read coding)) > (insert-file-contents file)) > (cons coding > (buffer-substring > (point-min) (progn (forward-line 1) (point)))))) > '(iso-8859-1-unix > iso-8859-1-dos > raw-text-unix > raw-text-dos > sjis-unix > sjis-dos > iso-2022-7bit-unix > iso-2022-7bit-dos))) > > -> > > ((iso-8859-1-unix . "This is a list of ways to say hello in various languages. > ") (iso-8859-1-dos . "This is a list of ways to say hello in various languages Does the patch below fix that? === modified file 'src/coding.c' --- src/coding.c 2013-04-24 15:09:49 +0000 +++ src/coding.c 2013-04-27 12:52:02 +0000 @@ -7774,7 +7774,7 @@ decode_coding_gap (struct coding_system while (src_beg < src) { *--dst = *--src; - if (*src == '\n') + if (*src == '\n' && src > src_beg && src[-1] == '\r') src--; } diff = dst - src;