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

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index dc5529df200cb2fb9d51437041265534c4f57e8e..66b709fe9a968e4b1373eb813ec45a3161a32138 100644 (file)
--- 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)))
 
      (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)
 ;;;----- That's all, folks --------------------------------------------------
 
 (provide 'dot-emacs)