共通の式をたくさんadd hookするときのTIPS

add-hookをいくつも並べるのはかっこ悪いなと思ったときに重宝する。
例えばこのようにする。

(require 'cl-lib)
(cl-dolist (hook (list
                  'lisp-mode-hook
                  'emacs-lisp-mode-hook
                  'lisp-interaction-mode-hook
                  'c-common-mode-hook
                  'perl-mode-hook
                  'text-mode-hook))
  (add-hook hook (lambda ()
                   (whitespace-mode 1))))

ここでは共通の(whitespace-mode 1)という式をいくつかのhook変数にひっかけている。
hook変数のリストや無名関数の中身を自由に変えればなかなか汎用的に使えるのではなかろうか。