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