🚀 go-pugleaf

こんにちは山岡です。

>>>>> In <6vsjss$s7b$1@nazuna.bres.tsukuba.ac.jp>
>>>>>	yohta@bres.tsukuba.ac.jp (Yoshihiko OHTA) wrote:

太田さん> もっと単に Emacs Lisp の中で現在の buffer がテキストかバイナ
太田さん> リか、というのがわかればいいな、と思っています。何かそういう
太田さん> 関数はないでしょうか？ なお環境は Mule 2.3(19.28) です。

バイナリデータを手作業で編集することはまず無くて、大抵はプログラムの中
で行なわれますよね。そういう場合

  file-coding-system か、それより優先度が高い output-coding-system が
  *noconv* になっていて、
  ファイルに書き出す関数は write-file-hooks が効かない関数が使われる

ことが多いのではないかと思うので、こういうのも使えるかもしれません。

(setq write-region-pre-hook
      (function
       (lambda (&rest args)
	 (or (eq *noconv* output-coding-system)
	     (eq *noconv* file-coding-system)
	     (eq ?\n (char-before (point-max))
	     (progn
	       (goto-char (point-max))
	       (insert "\n")))
	 nil)))

write-region-pre-hook は -hook という名前ですが実際はそれ自体が関数で
なければなりません。また、本来はファイルに書き出すときの coding-system
を、この関数の戻り値で決めるためのもののようです。
-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>