From: Vibhav Pant <vibhavp@gmail.com>
Date: Wed, 28 Oct 2015 17:07:34 +0000 (+0530)
Subject: Fix eshell/clear not working if the output has a small line count
X-Git-Tag: emacs-25.0.90~987
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2765945d616f9661dd0aa641f4ecd328dd8768d7;p=emacs.git

Fix eshell/clear not working if the output has a small line count

* lisp/eshell/esh-mode.el: (eshell/clear): Use (window-size) as the
number of newlines to be inserted. This fixes the issue where
eshell/clear wouldn't work if the prompt was not at the bottom of the
window, and the output wasn't too long.
---

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 3df820d5956..9cc9d34eafd 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -877,9 +877,8 @@ If SCROLLBACK is non-nil, clear the scrollback contents."
   (interactive)
   (if scrollback
       (eshell/clear-scrollback)
-    (let ((number-newlines (count-lines (window-start) (point))))
-      (insert (make-string number-newlines ?\n))
-      (eshell-send-input))))
+    (insert (make-string (window-size) ?\n))
+    (eshell-send-input)))
 
 (defun eshell/clear-scrollback ()
   "Clear the scrollback content of the eshell window."