(require 'digit-groups)

;;; わかりやすくするためにアンダーライン表記
;;; デフォルトはボールド体になるだけ
(custom-set-faces '(digit-groups-default-face ((t (:underline t)))))
;;; 日本人向けに4桁区切り
(setq digit-groups-groups
  (--map (cons it 'digit-groups-default-face)
         (apply 'append
                (append
                 (--map (list (+ 7 (* 8 it))(+ 6 (* 8 it)) (+ 5 (* 8 it)) (+ 4 (* 8 it)))
                        '(9 8 7 6 5 4 3 2 1 0))))))
;;; テスト
(switch-to-buffer "*digit-groups-test*")
(insert "
 1234567890123
兆  億  万
")
(font-lock-mode 1)
(digit-groups-mode 1)