change: eshell-clear

* eshell-conf.el (eshell-clear): Now it accepts a numeric argument.
  This will now preserve NUM many prompts.

1 files changed, 11 insertions, 5 deletions

diff --git a/eshell-conf.el b/eshell-conf.el
index 7386400..119ca96 100644
--- a/eshell-conf.el
+++ b/eshell-conf.el
@@ -160,12 +160,18 @@ browser instead."
      ((kill-new url)))))
 
 ;;;###autoload
-(defun eshell-clear ()
-  (interactive)
+(defun eshell-clear (num)
+  "Deletes the buffer.
+Do NUM times `eshell-previous-prompt' before deleting."
+  (interactive
+   (list (cond ((null current-prefix-arg) 0)
+               ((prefix-numeric-value current-prefix-arg)))))
   (let ((inhibit-read-only t))
-    (delete-region eshell-last-output-end (point)))
-  (eshell/clear t)
-  (eshell-emit-prompt))
+    (delete-region
+     (point-min)
+     (save-excursion
+       (eshell-previous-prompt num)
+       (line-beginning-position)))))
 
 ;;;###autoload
 (defun eshell/j (&rest args)