古い.emacs.elからの移植 (1)