From cb1577c14a02496f62a3d61ed9800ea31341099e Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 12 Jan 2014 21:41:55 +0900
Subject: [PATCH] fix eshell clear

---
 emacs.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index 2a697ca..4c1e1ce 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1687,7 +1687,9 @@ Optional prefix ARG says how many lines to unflag; default is one line."
 
   (defun eshell-clear ()
     (interactive)
-    nil)
+    (let ((inhibit-read-only t))
+      (erase-buffer)
+      (insert (funcall eshell-prompt-function))))
 
   (defun eshell/d (&optional dirname switches)
     "if first arg is omitted open current directory."
@@ -1830,8 +1832,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
                 'eshell-kill-input)
               (define-key eshell-mode-map (kbd "C-d")
                 'eshell-delete-char-or-logout)
-              (define-key eshell-mode-map (kbd "C-l")
-                'eshell/clear)
+              ;; (define-key eshell-mode-map (kbd "C-l")
+              ;;   'eshell-clear)
               (define-key eshell-mode-map (kbd "DEL")
                 'my-eshell-backward-delete-char)
               (define-key eshell-mode-map