From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 21 Nov 2009 11:17:41 +0000 (+0000)
Subject: el/dot-emacs.el: Configure `ielm'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/e07e3320cb70a5e9dae0e424d03b9750458a4086

el/dot-emacs.el: Configure `ielm'.

Why did I never find this before?  It's basically a nice REPL for
Emacs Lisp.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index dc5529d..66b709f 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2230,6 +2230,21 @@      (define-key term-raw-map [?\e ?\M-O ?C] 'term-send-meta-right)
      (define-key term-raw-map [M-left] 'term-send-meta-left)
      (define-key term-raw-map [?\e ?\M-O ?D] 'term-send-meta-left)))
 
+;;;--------------------------------------------------------------------------
+;;; Inferior Emacs Lisp.
+
+(setq comint-prompt-read-only t)
+
+(eval-after-load "comint"
+  '(progn
+     (define-key comint-mode-map "\C-w" 'comint-kill-region)
+     (define-key comint-mode-map [C-S-backspace] 'comint-kill-whole-line)))
+
+(eval-after-load "ielm"
+  '(progn
+     (define-key ielm-map "\C-w" 'comint-kill-region)
+     (define-key ielm-map [C-S-backspace] 'comint-kill-whole-line)))
+
 ;;;----- That's all, folks --------------------------------------------------
 
 (provide 'dot-emacs)