Emacs LISP テクニカルバイブルを参考に改変