[xyzzy:03539] Re: EUC で保存

[TAGA Nayuta <nayuta@xxxxxxxxxxxxxxxxxx>]

Tetsuya Kamei <kamei@xxxxxxxxxxxx> wrote:

> というわけで、コード判定を間違った場合は、漢字コードを
> 指定して開き直すか、読み込んだ後で変換してください。

ごく適当に作ってみました。

(defun find-file-with-kanji-code (filename kanji-code)
  "漢字コードを指定してファイルを開く。"
  (interactive "FFind file: \nnKanji-code (0:sjis 1:jis 2:euc 3:unicode-i 4:unicode-m 5:utf-8): ")
  (if kanji-code
      (let ((default *kanji-expected-code*))
	(setq *kanji-expected-code* kanji-code)
	(find-file filename)
	(setq *kanji-expected-code* default))
    (find-file filename)))
;(global-set-key '(#\C-x #\C-f) 'find-file-with-kanji-code) ; これができれば…

mule みたいに、C-x C-f の時は普通の find-file で、C-u C-x C-f の時だけ 
kanji-code を聞いてくるようにしたかったのですが、よくわからないので適
当にかきました。kanji-code の補完もできるといいし、そもそも 
*kanji-expected-code* を setq するのはキタナイし…と、色々問題はあるの
ですが、とりあえず便利ではあります。

--
∩∩ | TAGA Nayuta <nayuta@xxxxxxxxxxxxxxxxxx> 多賀 奈由太
"∪" | Department of Information Science, University of Tokyo