X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/f36cdb77c550b846c20e12919d662d1fa5f76576..e07e3320cb70a5e9dae0e424d03b9750458a4086:/el/dot-emacs.el

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 @@ strip numbers instead."
      (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)