Add wrapping commands to ielm-map

This commit is contained in:
Bozhidar Batsov 2013-12-07 09:15:12 +02:00
parent 8217618525
commit fea2c44cbd

View file

@ -92,6 +92,11 @@ Start `ielm' if it's not already running."
(eval-after-load "eldoc" (eval-after-load "eldoc"
'(diminish 'eldoc-mode)) '(diminish 'eldoc-mode))
(eval-after-load "ielm"
'(progn
(define-key ielm-map (kbd "M-(") (prelude-wrap-with "("))
(define-key ielm-map (kbd "M-\"") (prelude-wrap-with "\""))))
;; enable elisp-slime-nav-mode ;; enable elisp-slime-nav-mode
(dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook)) (dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook))
(add-hook hook 'elisp-slime-nav-mode)) (add-hook hook 'elisp-slime-nav-mode))