

index 75d55de3f3..491d0d3de5 100644

--- a/

+++ b/ diff --git a/etc/NEWS b/etc/NEWSindex 75d55de3f3..491d0d3de5 100644--- a/ etc/NEWS +++ b/ etc/NEWS @@ -556,6 +556,10 @@ to avoid interfering with the kill ring. allow overriding the regular expression that recognizes the ldapsearch command line's password prompt. +** Eshell + +*** The new built-in command `clear' can scroll window contents out of sight. + +++ ** tar-mode: new `tar-new-entry' command, allowing for new members to be added to the archive.

index c6fab7fba3..3af4bb20b0 100644

--- a/

+++ b/ diff --git a/lisp/ChangeLog b/lisp/ChangeLogindex c6fab7fba3..3af4bb20b0 100644--- a/ lisp/ChangeLog +++ b/ lisp/ChangeLog @@ -1,3 +1,7 @@ +2015-03-16 Vibhav Pant <vibhavp@gmail.com> + + * eshell/esh-mode.el (eshell/clear): New function. + 2015-03-16 Alan Mackenzie <acm@muc.de> Make Edebug work with Follow Mode.

index da83ec6a6a..15120cb61d 100644

--- a/

+++ b/ diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.elindex da83ec6a6a..15120cb61d 100644--- a/ lisp/eshell/esh-mode.el +++ b/ lisp/eshell/esh-mode.el @@ -871,6 +871,13 @@ When run interactively, widen the buffer first." (goto-char (point-max)) (recenter -1)) +(defun eshell/clear () + "Scroll contents of eshell window out of sight, leaving a blank window." + (interactive) + (let ((number-newlines (count-lines (window-start) (point)))) + (insert (make-string number-newlines ?

))) + (eshell-send-input)) + (defun eshell-get-old-input (&optional use-current-region) "Return the command input on the current line." (if use-current-region