【Emacs】モードラインに現在行数と総行数を同時に表示する設定

こう書く．

(setq line-number-display-limit nil)
(defvar my-mode-line-format nil)
(setq my-mode-line-format " (%%l/%d,%%c)")
(if size-indication-mode
    (setq my-mode-line-format (concat my-mode-line-format " of %%I")))
(setq mode-line-position
      '(:eval (format my-mode-line-format
                      (count-lines (point-min) (point-max)))))