🚀 go-pugleaf

難波です。

Seiichi Namba <sn@asahi-net.email.ne.jp> さん writes:

> save-buffer-hook てのはあったっけ(もちろん、save-buffer-hook 的なもの
> を利用するのであれば他のモードの事も考慮したコードを書く必要があります
> ね)…。
> 
> 捜せば hook は何かありそうですが、あまり時間を使いたくない時はテキトー

fj.editor.emacs の <tzg0dmjly9.wl@tenryu.tom.sfc.keio.ac.jp>
で、服部さんが書かれている
write-file-hooks
でしたね。

どの emacs でも同じかどうか判りませんが、 emacs-21.0.103 だと
save-buffer -> basic-save-buffer という順で実行され、
basic-save-buffer では

            (or (run-hook-with-args-until-success 'write-contents-hooks)
		(run-hook-with-args-until-success 'local-write-file-hooks)
		(run-hook-with-args-until-success 'write-file-hooks)
		;; If a hook returned t, file is already "written".
		;; Otherwise, write it the usual way now.
		(setq setmodes (basic-save-buffer-1)))

というくだりがあります。結構複雑ですね。

hack-local-variables を利用するとして、write-file-hooks を使う場合は

(add-hook 'write-file-hooks
  (lambda ()
    (and html-helper-mode
         (hack-local-variables))))

ですかね。

advice.el を使うのであれば、

(defadvice save-buffer (before html-helper-ad activate)
  (and html-helper-mode
       (hack-local-variables)))

でしょうか。

hook は呼ばれるタイミングを一応確認しないと安心できませんが、
advice の方はタイミングを指定できるところが便利かもしれません。

いずれも実際に動かしてないのですが、間違ってたらご容赦。