(add-hook 'twittering-mode-hook (lambda () (defun twittering-say () (interactive) (let ((username (get-text-property (point) 'username)) (text (get-text-property (point) 'text))) (when username (call-process "say" nil nil nil "-v" "Kyoko" (format "%s : %s" username text))))) (define-key twittering-mode-map (kbd "S") 'twittering-say) )) S 押すと読み上げる。