>>939
hook の一種だけど, autoinsert 使えば同じコトがもっと楽にできるよ.

オレは普段 Meadow 使ってるから
デフォルトのコーディングシステムは sjis なんだけど
perl とか shell-script とか書くときは euc がいいからこんな風にしてる.

(setq auto-insert-alist
'(((cperl-mode . "Shell-Script mode magic number") ""
'(setq buffer-file-coding-system 'euc-jp-unix)
"#!/usr/bin/perl\n\n"
"### " (file-name-nondirectory (buffer-file-name)) "\n\n"
_ "\n\n### " (file-name-nondirectory (buffer-file-name)) " ends here.\n")
((sh-mode . "Shell-Script mode magic number") ""
'(setq buffer-file-coding-system 'euc-jp-unix)
"#!/bin/sh\n\n"
"### " (file-name-nondirectory (buffer-file-name)) "\n\n"
_ "\n\n### " (file-name-nondirectory (buffer-file-name)) " ends here.\n")
(("bin/[^.]+[^/]\\'" . "Shell-Script mode magic number") ""
'(when (eq major-mode default-major-mode)
(sh-mode)
(setq buffer-file-coding-system 'euc-jp-unix)
(insert "#!/bin/sh\n\n")
(insert "### " (file-name-nondirectory (buffer-file-name)) "\n\n")
(insert "\n\n### " (file-name-nondirectory (buffer-file-name)) " ends here.\n")
(forward-line -3)))
(("^[^.]+\\.el\\'" . "Emacs Lisp header") ""
'(setq buffer-file-coding-system 'euc-jp-unix)
";;; " (file-name-nondirectory (buffer-file-name)) " -*- mode: Emacs-Lisp -*-\n\n"
_ "\n\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here.\n")))