日本語の文章を整形する text-adjust.el

M-x install-elisp [RET]
http://taiyaki.org/elisp/mell/src/mell.el [RET]
C-c

M-x install-elisp [RET]
http://taiyaki.org/elisp/text-adjust/src/text-adjust.el [RET]
C-c

で、init.el には

;; ------------------------------------------------------------------------
;; @ 日本語の文章を整形する test-adjust.el
;; 参考:http://d.hatena.ne.jp/rubikitch/20090220/text_adjust

;; 読み込み
(require 'text-adjust)

;; ％は例外として半角にしない
(setq text-adjust-hankaku-except "％")

;; org-mode, text-mode, ansys-mode のとき自動的には保存する際に実行
(defun text-adjust-space-before-save-if-needed ()
  (when (memq major-mode
              '(org-mode text-mode ansys-mode))
    (text-adjust-space-buffer)))
(defalias 'spacer 'text-adjust-space-buffer)
(add-hook 'before-save-hook 'text-adjust-space-before-save-if-needed)