ESSの対話式モードで括弧などのペアを挿入する

Rを使う時は、ほとんどESSの対話式モード。
こん時に括弧とかを閉じるのがめんどくさかったので.emacsに以下を書いている。

(add-hook 'inferior-ess-mode-hook
  (function (lambda ()
    (define-key inferior-ess-mode-map "\"" 'electric-pair)
    (define-key inferior-ess-mode-map "\'" 'electric-pair)
    (define-key inferior-ess-mode-map "(" 'electric-pair)
    (define-key inferior-ess-mode-map "[" 'electric-pair)
    (define-key inferior-ess-mode-map "{" 'electric-pair)
    )))
(defun electric-pair ()
  "Insert character pair without surrounding spaces"
  (interactive)
  (let (parens-require-spaces)
    (insert-pair)
    ))