Re: iso-2022-jp-3

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Satomi Suzuki <pan@xxxxxxxxxxxxxxx> さん曰く
Subject: Re: iso-2022-jp-3
Message-ID: <wk7l57a65k.fsf@xxxxxxxxxxxxxx>
Date: Mon, 11 Dec 2000 14:18:15 +0900

pan> 
pan> とかで上手く動いているようです。
pan> 
pan> もしかして、白井さんのは全角に変換してくれたりしちゃうのでしょうか?

はい、そうです。
適当な buffer に半角カタカナを書いて region で選択して

M-x katakana-to-zenkaku

すると全角カタカナに変わります。

## (japanese-zenkaku-region (point-min) (point-max) t) を eval
## しても良し。

message-check-jisx0201() を呼ぶ上位関数とのインタフェースがよく
わかんないけど、

pan> (defun message-check-jisx0201 ()
pan>   (interactive)
pan>   (let (debug-on-quit)
pan>     (goto-char (point-min))
pan>     (if (re-search-forward "\\ck" nil t)
pan> 	(or
pan> 	 (y-or-n-p
pan> 	  "半角カタカナらしきものがあるけど本当に送信しちゃうの?(^^;) ")
pan> 	 (signal 'quit nil))
pan>       t))))

送信するときは 't' を変えさないといけないみたいなので、なんか汚
いけど、

 (defun message-check-jisx0201 ()
   (interactive)
   (let ((beg (point-min))
	 (end (point-max))
	 debug-on-quit)
     (if (memq 'katakana-jisx0201 (find-charset-region beg end))
	 (if (y-or-n-p "半角カタカナらしきものがあるけど全角に変換して送信する? ")
	     (let ((buffer-read-only nil)
		   (inhibit-read-only t))
	       (japanese-zenkaku-region beg end t)
	       t)
	   (if (yes-or-no-p "本当に半角カタカナを送信しちゃうの?(^^;) ")
	       t
	     (signal 'quit nil)))
       t)))

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)