GGでありがとうございますが出る Perl書いてるときは.で->が出る (global-set-key (kbd "G") (smartchr '("G" "ありがとうございます"))) (define-key cperl-mode-map (kbd ".") (smartchr '("->" "->{`!!'}" "."))) よろしくお願いします．