Emacsに選択してる範囲を読んでもらう

say コマンドがインストールされている場合のお話です。

(defun say-on-region (&optional start end)
  (interactive "r")
  (unless (executable-find "say")
    (error  "say command is not installed!!"))
  (shell-command-on-region start end "say"))

読んで欲しいところをリージョン選択しながら M-x say-on-region で話し始めます。

endless eight onichan Daisuki dogura magura

もうお好きなのをどうぞ!!
自分の中のビールの部分がお届けしました。おやすみなさい。