From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kenichi Handa Newsgroups: gmane.emacs.devel Subject: Re: cut-and-paste german quotes Date: Thu, 19 Aug 2004 20:22:53 +0900 (JST) Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: <200408191122.UAA04786@etlken.m17n.org> References: <200404290244.LAA27861@etlken.m17n.org> <200408091242.VAA10174@etlken.m17n.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya") Content-Type: text/plain; charset=US-ASCII X-Trace: sea.gmane.org 1092915188 14877 80.91.224.253 (19 Aug 2004 11:33:08 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 19 Aug 2004 11:33:08 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Aug 19 13:32:51 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BxlA2-0001d1-00 for ; Thu, 19 Aug 2004 13:32:50 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BxlEG-00013m-5R for ged-emacs-devel@m.gmane.org; Thu, 19 Aug 2004 07:37:12 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BxlE7-00013b-JB for emacs-devel@gnu.org; Thu, 19 Aug 2004 07:37:03 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BxlE6-00013I-9r for emacs-devel@gnu.org; Thu, 19 Aug 2004 07:37:03 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BxlE6-00013F-4u for emacs-devel@gnu.org; Thu, 19 Aug 2004 07:37:02 -0400 Original-Received: from [192.47.44.130] (helo=tsukuba.m17n.org) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1Bxl9C-0002cP-T4 for emacs-devel@gnu.org; Thu, 19 Aug 2004 07:31:59 -0400 Original-Received: from fs.m17n.org (fs.m17n.org [192.47.44.2]) by tsukuba.m17n.org (8.12.3/8.12.3/Debian-6.6) with ESMTP id i7JBMsEd004347; Thu, 19 Aug 2004 20:22:55 +0900 Original-Received: from etlken.m17n.org (etlken.m17n.org [192.47.44.125]) by fs.m17n.org (8.11.6p2/8.11.6) with ESMTP id i7JBMrU11945; Thu, 19 Aug 2004 20:22:53 +0900 (JST) Original-Received: (from handa@localhost) by etlken.m17n.org (8.8.8+Sun/3.7W-2001040620) id UAA04786; Thu, 19 Aug 2004 20:22:53 +0900 (JST) Original-To: ke@gnu.franken.de In-reply-to: (ke@gnu.franken.de) User-Agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.3 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:26313 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:26313 Sorry for the late response again. In article , ke@gnu.franken.de writes: >> When I open that URL by mozilla and paste that name into >> Emacs, I get 0x51031 (which is what you want) for d-dash. >> In what locale, are you running your browser? > en_US.UTF-8 I tested mozilla started with that locale, but still can't reproduce the problem. The version of my mozilla is: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.0) Gecko/20020623 Debian/1.0.0-0.woody.1 What is yours? I suspect that your mozilla doesn't use UTF8_STRING somehow. >> What is the value of last-coding-system-used just after you paste the >> name? > last-coding-system-used's value is > compound-text-with-extensions I want you to test these two methods (each independently). (1) Force Emacs to request only UTF8_STRING on receiving selection. (setq x-select-request-type 'UTF8_STRING) (2) Force compound-text-with-extensions to translate latin characters in korean-ksc5601 to mule-unicode-0100-24ff. (coding-system-put 'compound-text-with-extensions 'translation-table-for-decode (make-translation-table (let ((row #x21) (row-to #x2F) col char unicode map) (while (<= row row-to) (setq col #x21) (while (<= col #x7E) (setq char (make-char 'korean-ksc5601 row col) unicode (encode-char char 'ucs)) (if (and unicode (>= unicode #x80)) (setq map (cons (cons char (decode-char 'ucs unicode)) map))) (setq col (1+ col))) (setq row (1+ row))) map))) --- Ken'ichi HANDA handa@m17n.org