JavaScriptモードで対応する括弧を自動挿入する設定 その2

id:khikerさんが早速要望に応えてくれたようです。
ありがとうございます!
対応する括弧などを挿入する関数を提供するelisp, parenthesis.elを更新 - とりあえず暇だったし何となくはじめたブログ


で、新しくなった parenthesis と"で""とか(で()とか - trotrの日記を参考にして書き直した .emacs の記述が以下。

;;; 対応する括弧を自動挿入する
(require 'parenthesis)
(setq parenthesis-add-language '("text" "javascript"))
(defun parenthesis-add-hook (name)
  (let ((modehook (intern (concat name "-mode-hook"))))
    (add-hook modehook
              '(lambda()
                 (parenthesis-register-keys "{('\"[" (current-local-map))))))
(let ((x parenthesis-add-language))
  (while (car x)
    (parenthesis-add-hook (car x))
    (setq x (cdr x))))

他のキーマップに追加したいときは parenthesis-add-language に新しく値を追加すればOK。