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