キーバインドの設定に便利な関数

emacsの設定ファイルどうするのかというのはおそらく共通の悩み - podhmo's diary
で紹介されていた関数．

(defun define-many-keys (key-map key-table)
  (loop for (key . cmd) in key-table
        do (define-key key-map (read-kbd-macro key) cmd)))

地味に助かる．
キーの設定例は以下の通り．multiple-cursorsのコマンドを例にした．

(define-many-keys global-map
  '(("C-M-c" . mc/edit-lines)
    ("C-*"   . mc/mark-all-like-this)
    ("C-,"   . mc/mark-next-like-this)
    ("C-."   . mc/mark-previous-like-this)
    ("C-c k" . mc/mark-all-like-this)))