From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ynyaaa@gmail.com Newsgroups: gmane.emacs.bugs Subject: bug#23814: 24.5; bug of hz coding-system Date: Sun, 24 Jul 2016 17:21:08 +0900 Message-ID: <87twffigzv.fsf@gmail.com> References: <877fdiu3xz.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1469348553 24697 80.91.229.3 (24 Jul 2016 08:22:33 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 24 Jul 2016 08:22:33 +0000 (UTC) Cc: 23814@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jul 24 10:22:22 2016 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 1bREg1-0003j6-IZ for geb-bug-gnu-emacs@m.gmane.org; Sun, 24 Jul 2016 10:22:21 +0200 Original-Received: from localhost ([::1]:55190 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bREg0-0000j4-Cn for geb-bug-gnu-emacs@m.gmane.org; Sun, 24 Jul 2016 04:22:20 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41982) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bREfu-0000iz-7Y for bug-gnu-emacs@gnu.org; Sun, 24 Jul 2016 04:22:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bREfp-0001ax-LM for bug-gnu-emacs@gnu.org; Sun, 24 Jul 2016 04:22:13 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:51117) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bREfi-0001ar-FN for bug-gnu-emacs@gnu.org; Sun, 24 Jul 2016 04:22:09 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bREfi-0002AB-77 for bug-gnu-emacs@gnu.org; Sun, 24 Jul 2016 04:22:02 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <877fdiu3xz.fsf@gmail.com> Resent-From: ynyaaa@gmail.com Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 24 Jul 2016 08:22:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 23814 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 23814-submit@debbugs.gnu.org id=B23814.14693484858269 (code B ref 23814); Sun, 24 Jul 2016 08:22:02 +0000 Original-Received: (at 23814) by debbugs.gnu.org; 24 Jul 2016 08:21:25 +0000 Original-Received: from localhost ([127.0.0.1]:35221 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bREf6-00029I-U8 for submit@debbugs.gnu.org; Sun, 24 Jul 2016 04:21:25 -0400 Original-Received: from mail-pf0-f195.google.com ([209.85.192.195]:33507) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bREf5-000295-8u for 23814@debbugs.gnu.org; Sun, 24 Jul 2016 04:21:23 -0400 Original-Received: by mail-pf0-f195.google.com with SMTP id i6so9938073pfe.0 for <23814@debbugs.gnu.org>; Sun, 24 Jul 2016 01:21:23 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:date:message-id:mime-version; bh=dsX+Rhtta1B4O4vpckpj9xU/jtkiLl2u0iAiN62hPBE=; b=EuXmGbvFUQ/igTmuBMvHVOnPBScOTCnTGYMiS9isVi6DL1+CFHbvzM4ncwiGv2hODV JZDm4MU0qcIvgQprtbbrHOauauhT0arbZYmC0wiCsO7EYbTTDY97+faGv037VEuFQ8IP sbzH4xZTWkA4IXPR5z/EOyX+Wu9KjvD6TFPgJ5jxfH/DphuNBcdTxaD8Z/4hg8EboNjj +T5bg8w+nnlgIsEMoZmZPCpqezjOju3j48xO0vYo+BmNKunibVXhs8rkOkBo1kMkB2KD FA/mitonLE/cgEiJJAQXMXuCSAy9GAZaKBEMrH3vGfoedJGo3royeKXskUN5t36oP9bj /svg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:cc:subject:date:message-id:mime-version; bh=dsX+Rhtta1B4O4vpckpj9xU/jtkiLl2u0iAiN62hPBE=; b=WsJgwYZJCXQxTW5pnX9wLrLOM/UygudUxqaRRaduAFszByN4q/2ZQeC7tWZLzNmhSw fwijwKWmFQlg1MNYy4Ktb748hfPg12V6J7mP7YATlptJ2rGnEw5Copk6J1eOf/azKxFp jX1vomMGyxFzcqqINeSOPuWajWsuXzxTz8zvgzaHsXVpAxvi1B+ohMR6JHEMvEzU9K00 xt9XJv1nf80RDm8ok6rdu68y9rEOudBiEDMlmh0soaIUNwop+ySw72whckpT3Q1PJk/J q5Cax2/IahZcZLW1xdMDgIOenPqEMV55XZHnPnnf4rCtddhpd3dFnNYgW8OGifYCNFmd RvXA== X-Gm-Message-State: AEkoousM4pdZTAAA2FjEKUoMPvnHKFcWq1jqCRwiPUeramxpi8hHHAUySsEdJ7cAdI1htg== X-Received: by 10.98.7.200 with SMTP id 69mr20200292pfh.33.1469348477428; Sun, 24 Jul 2016 01:21:17 -0700 (PDT) Original-Received: from PNUT-PC (east49-p99.eaccess.hi-ho.ne.jp. [219.105.5.100]) by smtp.gmail.com with ESMTPSA id g5sm31426447pfg.0.2016.07.24.01.21.15 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 24 Jul 2016 01:21:16 -0700 (PDT) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.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" Xref: news.gmane.org gmane.emacs.bugs:121479 Archived-At: Eli Zaretskii writes: > Ping! Could you please try this patch and see if it solves the > problem? The patch seems to make better results. But I found other bugs about decodings of "~" escape. "~~" and "~{!!~}" should be encoded and decoded as below. "~~" -> "~~~~" -> "~~" "~{!!~}" -> "~~{!!~~}" -> "~{!!~}" In really they are encoded properly, but decoded in wrong way. (decode-coding-string (encode-coding-string "~~" 'hz) 'hz) => "~" (decode-coding-string (encode-coding-string "~{!!~}" 'hz) 'hz) => #("\x3000" 0 1 (charset chinese-gb2312)) These behaviors are not affected by the patch. >> diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el >> index e531640..9735bd6 100644 >> --- a/lisp/language/china-util.el >> +++ b/lisp/language/china-util.el >> @@ -95,7 +95,9 @@ decode-hz-region >> (goto-char (point-min)) >> (while (search-forward "~" nil t) >> (setq ch (following-char)) >> - (if (or (= ch ?\n) (= ch ?~)) (delete-char -1))) >> + (if (= ch ?{) >> + (search-forward "~}" nil 'move) >> + (if (or (= ch ?\n) (= ch ?~)) (delete-char -1)))) >> >> ;; "^zW...\n" -> Chinese GB2312 >> ;; "~{...~}" -> Chinese GB2312 >> @@ -141,7 +143,7 @@ encode-hz-region >> (save-excursion >> (save-restriction >> (narrow-to-region beg end) >> - >> + (put-text-property beg end 'charset 'chinese-gb2312) >> ;; "~" -> "~~" >> (goto-char (point-min)) >> (while (search-forward "~" nil t) (insert ?~)) >> >>