Re: cut-and-paste german quotes

[Kenichi Handa <handa@m17n.org>]

In article <shd65yljfg.fsf@tux.gnu.franken.de>, Karl Eichwalder <ke@gnu.franken.de> writes:

> German quotes are looking this way: „[...]“ (as XML entities:
> &#x201E;[...]&#x201C; = low 99 ... upper 66).

> I can paste them from Emacs into an xterm, but back from the xterm and
> pasted into Emacs the closing "upper 66" is broken.
> It has double width:

> Char:  (0150310, 53448, 0xd0c8, file ...) point=533 of 746 (71%) column 6 

> initially it was:

> Char: “ (01234574, 342396, 0x5397c, file ...) point=337 of 851 (39%) column 42 

0xd0c8 is a character of charset japanese-jisx0208.  Emacs
by default requests a selection of type COMPOUND_TEXT.  It
seems that xterm, on responding to it, encodes U+201C into a
character of japanese-jisx0208.  It itself is not a bug
because that that character can be mapped to U+201C
according to glibc's charset mapping table.

Please try this:

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

Then Emacs requests a selection of type UTF8_STRING at first.

> And then, Gnus complains (thus I'll remove the offening character for
> posting):

> Debugger entered--Lisp error: (error "Non-character input-event")
>   read-char()
>   byte-code("Š\b„Ð\0ÆÇ	ÈÉ\nÊ#ËP#ˆÌ ‰\x10\nž„\x01\0Í\x10ÎÏ!\x13Ð\v!ˆÑ ˆÒ ˆÓ ˆ	Ô±\x02ˆÕ\n‰\f†:\0Ö×͉‰‰\x1d\x1e \x1e!\x1e\"\x1e#\x1c\x1e$\x1e%\x1e&\x0e%ƒq\0\f\x0e%@8G\x16\"\x0e&\x0e\"V„h\0\x0e\"\x16&\x0e%A‰\x16%„T\0\x0e&Ø\\\x16&Ù S\x0e&¥\x16\"Ù S\x0e\"¥\x16!\x0e$ƒË\0\x0e#\x0e\"W„ž\0×\x16#ÚÕ!ˆÛcˆ\x0e!ÜZ\x16 ÝÞ\x0e !ßQ\x15Å\r\x0e$‰\x1e'@@)\f\x0e$@8#cˆ\x0e$A\x16$\x0e#T\x16#‚‡\0.	‚\x01\0)͇" [tchar prompt choice buf idx format message "%s (%s): " mapconcat #[(s) "Á\b@!‡" [s char-to-string] 2] ", " ", ?" read-char nil get-buffer-create "*Gnus Help*" pop-to-buffer fundamental-mode buffer-disable-undo erase-buffer ":\n\n" -1 1 0 4 window-width delete-char "\n" 3 "%c: %-" int-to-string "s" pad width n i alist list max x] 10)
>   gnus-multiple-choice("Non-printable characters found.  Continue sending?" ((100 "Remove non-printable characters and send") (114 "Replace non-printable characters with dots and send") (105 "Ignore non-printable characters and send") (101 "Continue editing")))
>   message-fix-before-sending()
>   message-send(nil)
>   message-send-and-exit(nil)
>   call-interactively(message-send-and-exit)

It seems that gnus included in the latest Emacs doesn't have
this bug.  First of all, it doesn't have the function
gnus-multiple-choice.

---
Ken'ichi HANDA
handa@m17n.org