開いている全てのバッファの.cppと.hをrevert-bufferするelisp

http://d.hatena.ne.jp/berrylife/20100207/1265552316
開いている全てのバッファの.cppと.hをrevert-bufferするなら

(require 'cl)
(defun revert-matched-buffers (pattern)
  (loop for b in (buffer-list)
	when (string-match pattern (buffer-name b))
	do (with-current-buffer b (revert-buffer))))

(defun c++-buffers-revert () (interactions)
  (revert-matched-buffers "\\.\\(h\\|cpp\\)$"))

でも、こんなことをするよりも、c++-modeのhookかc系のmodeのhookに
auto-revert-modeが有効になるようにすれば良いような気がします。

(require 'autorevert)
(add-hook 'c++-mode-hook 'turn-on-auto-revert-mode)
;;(add-hook 'c-mode-common-hook 'turn-on-auto-revert-mode)