🚀 go-pugleaf

筑波大の染谷と申します。

<6vsjss$s7b$1@nazuna.bres.tsukuba.ac.jp>の記事において
yohta@bres.tsukuba.ac.jpさんは書きました。

>>   テキストファイルを保存する時に、ファイル末の改行がない場合に
>> (vi のように)自動的に補うような設定をしようと思っています。

require-final-newline という変数が利用できるのでは？

-----
Documentation:
*Value of t says silently ensure a file ends in a newline when it is saved.
Non-nil but not t says ask user whether to add a newline when there isn't one.
nil means don't add newlines.
-----

ということですので、
  (setq require-final-newline t)
とすれば望む結果になると思います。

----------------------------+---------------------------------------------
ys@softlab.is.tsukuba.ac.jp | 染谷 祐一
                            | 筑波大学大学院 工学研究科 /
                            |         ＯＳ・知識ベースシステム研究室

こんにちは山岡です。

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

$B!!C^GHBg$NB@ED$G$9!#$3$s$K$A$O!#(B

fj.editor.mule $B$N(B <6vt6lm$5nd$1@gama.is.tsukuba.ac.jp> $B$N5-;v$K$*$$$F(B
 1998-10-13($B2P(B) 00:19$B:"!"(Bys@softlab.is.tsukuba.ac.jp$B$5$s$O=q$-$^$7$?!#(B

><6vsjss$s7b$1@nazuna.bres.tsukuba.ac.jp>$B$N5-;v$K$*$$$F(B
>yohta@bres.tsukuba.ac.jp$B$5$s$O=q$-$^$7$?!#(B
>
>>>   $B%F%-%9%H%U%!%$%k$rJ]B8$9$k;~$K!"%U%!%$%kKv$N2~9T$,$J$$>l9g$K(B
>>> (vi $B$N$h$&$K(B)$B<+F0E*$KJd$&$h$&$J@_Dj$r$7$h$&$H;W$C$F$$$^$9!#(B
>
>require-final-newline $B$H$$$&JQ?t$,MxMQ$G$-$k$N$G$O!)(B

  $B$J$k$[$I!"$d$O$j$=$&$$$&JQ?t$O$"$k$N$G$9$M!#$G$b;DG0$J$,$i!"$3(B
$B$l$G$O%P%$%J%j%U%!%$%k$G$b2~9T$,A^F~$5$l$F$7$^$&$h$&$G$9!#$^$"%P(B
$B%$%J%j%U%!%$%k$r(B Emacs $B$GJT=8$7$h$&$H$$$&;d$,(B illegal $B$J$N$G$7$g(B
$B$&$,!#(B


fj.editor.mule $B$N(B <281zodv27n.fsf@kchisa.ga.sony.co.jp> $B$N5-;v$K$*$$$F(B
 1998-10-13($B2P(B) 07:34$B:"!"(Byamaoka@ga.sony.co.jp$B$5$s$O=q$-$^$7$?!#(B

>$B%P%$%J%j%G!<%?$r<j:n6H$GJT=8$9$k$3$H$O$^$:L5$/$F!"BgDq$O%W%m%0%i%`$NCf(B
>$B$G9T$J$o$l$^$9$h$M!#$=$&$$$&>l9g(B
>
>  file-coding-system $B$+!"$=$l$h$jM%@hEY$,9b$$(B output-coding-system $B$,(B
>  *noconv* $B$K$J$C$F$$$F!"(B
>  $B%U%!%$%k$K=q$-=P$94X?t$O(B write-file-hooks $B$,8z$+$J$$4X?t$,;H$o$l$k(B
>
>$B$3$H$,B?$$$N$G$O$J$$$+$H;W$&$N$G!"$3$&$$$&$N$b;H$($k$+$b$7$l$^$;$s!#(B
>
>(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)))

>	     (eq ?\n (char-before (point-max))
$B$NItJ,$O(B
>	     (eq ?\n (char-before (point-max)))
$B$G$h$m$7$$$G$7$g$&$+!#(B

  $B0l1~;W$C$?DL$j$N5sF0$O$9$k$N$G$9$,!"$J$<$+Jd$o$l$?2~9T$,J]B8$5(B
$B$l$^$;$s!#(Bwrite-region $B$,8F$P$l$?;~E@$G!"4{$K=q$-=P$5$l$k(B region 
$B$,7h$a$i$l$F$$$F!"2~9T$rJd$C$F$b$=$NJ8;z$,(B region $B30$G$"$k$H$$$&(B
$B$N$,860x$N$h$&$J5$$,CW$7$^$9!#(B

  $B$=$3$G(B
(add-hook 'write-file-hooks
	  '(lambda ()
	     (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))
$B$H$7$F$_$^$7$?!#(Bor $BJ8$O$3$&$$$&Iw$K;H$&$N$G$9$M!#$*$+$2$G$9$C$-(B
$B$j=q$1$^$7$?!#(B

  $B$3$l$GEv=i$NL\E*$r<B8=$G$-$^$7$?!#$"$j$,$H$&$4$6$$$^$9!#(B
  $B$J$*%P%$%J%j%U%!%$%k$NJT=8$OIaCJ$OI,MW$J$$$N$G$9$,!"%W%m%0%i%`(B
$B$N%j%s%/$7$F$$$k%i%$%V%i%j$N(B version $B$r=q$-49$($?$j!"FI$_9~$`@_(B
$BDj%U%!%$%k$N%G%U%)%k%HCM$r=q$-49$($?$j!"$H<j:n6H$G:n6H$9$k>l9g$b(B
$B$^$^$"$k$N$G!":#2s$N$h$&$J<ALd$H$J$j$^$7$?!#(B

  $B$*Ez$($$$?$@$$$?@wC+$5$s!";32,$5$s!"$I$&$b$"$j$,$H$&$4$6$$$^$7(B
$B$?!#(B
--
$BB@EDK'I'(B(Yoshihiko Ohta)  $BC^GHBg3X!!%P%$%*%7%9%F%`8&5f2J(B
E-mail: yohta@bres.tsukuba.ac.jp
$B!V$*$h$=CO$+$i$O$(=P$k?"J*$KH~$7$/$J$$$H;W$&$b$N$O0l$D$b$J$+$C$?!W(B
$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;{EDFRI'(B

$B!!C^GHBg$NB@ED$G$9!#(B

  $B$h$/$h$/9M$($?$i(B
  (setq require-final-newline "ask")
$B$H$+$9$l$P$$$$$@$1$+$b$7$l$^$;$s$M!"$J$s$@$+<+J,$NL5G=$5$K$d$l$d(B
$B$l$J$N$G$9!#(B

fj.editor.mule $B$N(B <6vv6rh$spm$1@nazuna.bres.tsukuba.ac.jp> $B$N5-;v$K$*$$$F(B
 1998-10-13($B2P(B) 18:34$B:"!";d$O=q$-$^$7$?!#(B

>>>>   $B%F%-%9%H%U%!%$%k$rJ]B8$9$k;~$K!"%U%!%$%kKv$N2~9T$,$J$$>l9g$K(B
>>>> (vi $B$N$h$&$K(B)$B<+F0E*$KJd$&$h$&$J@_Dj$r$7$h$&$H;W$C$F$$$^$9!#(B
>>
>>require-final-newline $B$H$$$&JQ?t$,MxMQ$G$-$k$N$G$O!)(B
>
>  $B$J$k$[$I!"$d$O$j$=$&$$$&JQ?t$O$"$k$N$G$9$M!#$G$b;DG0$J$,$i!"$3(B
>$B$l$G$O%P%$%J%j%U%!%$%k$G$b2~9T$,A^F~$5$l$F$7$^$&$h$&$G$9!#$^$"%P(B
>$B%$%J%j%U%!%$%k$r(B Emacs $B$GJT=8$7$h$&$H$$$&;d$,(B illegal $B$J$N$G$7$g(B
>$B$&$,!#(B
--
$BB@EDK'I'(B(Yoshihiko Ohta)  $BC^GHBg3X!!%P%$%*%7%9%F%`8&5f2J(B
E-mail: yohta@bres.tsukuba.ac.jp
$B!V$*$h$=CO$+$i$O$(=P$k?"J*$KH~$7$/$J$$$H;W$&$b$N$O0l$D$b$J$+$C$?!W(B
$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;{EDFRI'(B