emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: cut-and-paste german quotes


From: Kenichi Handa
Subject: Re: cut-and-paste german quotes
Date: Wed, 1 Sep 2004 22:13:32 +0900 (JST)
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)

Very sorry for the late response.

In article <address@hidden>, Karl Eichwalder <address@hidden> writes:

> Kenichi Handa <address@hidden> writes:
>>  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.

> It looks the like.  Mine is

>     "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.6) Gecko/20040114"

>>  (1) Force Emacs to request only UTF8_STRING on receiving
>>      selection.
>> 
>>  (setq x-select-request-type 'UTF8_STRING)

> This way it work.  I'm inclined to switch to this setting.

I see.

>>  (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)))

> This also works even it I use it in combination with

>     (setq x-select-request-type '(COMPOUND_TEXT UTF8_STRING TEXT STRING))

> Thanks for your debugging hints; I hope you can make use of my testing.

Yes.  Your testing is helpful.  I think your preferring of
mule-unicode-0100-24ff to korean-ksc5601 is reasonable for
non-Korean lang. env.  I'll try to find a way to make Emacs
work as you expect.

---
Ken'ichi HANDA
address@hidden





reply via email to

[Prev in Thread] Current Thread [Next in Thread]