From ea35825e1d9d7f81c05b7e96bc903473a37a3ae6 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 17 Dec 2015 01:24:36 +0100
Subject: Move eshell-C-d to eshell library

---
 emacs/.emacs.d/init.el | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

(limited to 'emacs/.emacs.d/init.el')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index cb5f0f2..1307dc6 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -148,16 +148,6 @@ MODE1 is enabled and vice-versa."
   "Set the `disabled' property for each item in FUNCTIONS to nil."
   (mapc #'(lambda (f) (put f 'disabled nil)) functions))
 
-(defun oni:eshell-C-d ()
-  "Either call `delete-char' interactively or quit."
-  (interactive)
-  (condition-case err
-      (call-interactively #'delete-char)
-    (error (if (and (eq (car err) 'end-of-buffer)
-                    (looking-back eshell-prompt-regexp nil))
-               (kill-buffer)
-             (signal (car err) (cdr err))))))
-
 (defun oni:level (lst)
   "Reduce a 2-level list LST to a flat list."
   (let ((lsts (mapcar (lambda (l) (if (listp l) l (list l))) lst)))
@@ -459,10 +449,6 @@ insert at the end of the region and at the beginning."
   "Set some keybindings for `dired'."
   (local-set-key (kbd "E") #'wdired-change-to-wdired-mode))
 
-(defun oni:set-keys-for-eshell ()
-  "Set some keybindings for `eshell'."
-  (local-set-key (kbd "C-d") #'oni:eshell-C-d))
-
 (defun oni:set-keys-for-hy ()
   "Set some keybindings for `hy-mode'."
   (local-set-key (kbd "{") #'paredit-open-curly)
@@ -1042,7 +1028,7 @@ If no direction is given, don't split."
   #'paredit-mode #'eldoc-mode #'oni:set-emacs-lisp-keys)
 
 (oni:add-hooks 'eshell-mode-hook
-  #'buffer-disable-undo #'oni:set-keys-for-eshell
+  #'buffer-disable-undo 'oni:set-keys-for-eshell
   #'eshell-fringe-status-mode)
 
 (oni:add-hooks 'gnus-summary-mode-hook
-- 
cgit v1.2.3-54-g00ecf