Re: [PATCH] Add function eshell/clear to clear current eshell buffer

[vibhavp@gmail.com]

[-- Attachment #1: Type: text/plain, Size: 105 bytes --]

Eli Zaretskii <eliz@gnu.org> writes:

> Yes, exactly.  It shouldn't be hard.

Done, does this look good?

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: new patch --]
[-- Type: text/x-diff, Size: 972 bytes --]

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b284ef1..3133cef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-09  Vibhav Pant  <vibhavp@gmail.com>
+
+	* eshell/esh-mode.el (eshell/clear): New function.
+
 2015-03-09  Dmitry Gutov  <dgutov@yandex.ru>
 
 	* progmodes/ruby-mode.el (ruby-font-lock-keywords): Don't consider
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index da83ec6..41ee132 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 ()
+  "Clear the eshell-buffer"
+  (interactive)
+  (let ((number-newlines (count-lines (window-start) (point))))
+    (insert (make-string number-newlines ?\n)))
+    (eshell-send-input))
+
 (defun eshell-get-old-input (&optional use-current-region)
   "Return the command input on the current line."
   (if use-current-region

[-- Attachment #3: Type: text/plain, Size: 42 bytes --]


Thanks
-- 
Vibhav Pant
vibhavp@gmail.com