From fea2c44cbd84c82d54946867a1aebb6bfab20655 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Sat, 7 Dec 2013 09:15:12 +0200 Subject: [PATCH] Add wrapping commands to ielm-map --- modules/prelude-emacs-lisp.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/modules/prelude-emacs-lisp.el b/modules/prelude-emacs-lisp.el index 4858b56..7980c4f 100644 --- a/modules/prelude-emacs-lisp.el +++ b/modules/prelude-emacs-lisp.el @@ -92,6 +92,11 @@ Start `ielm' if it's not already running." (eval-after-load "eldoc" '(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 (dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook)) (add-hook hook 'elisp-slime-nav-mode))