diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 15120cb..21026b2 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -878,6 +878,12 @@ When run interactively, widen the buffer first."
     (insert (make-string number-newlines ?\n)))
     (eshell-send-input))
 
+(defun eshell/clear-scrollback ()
+    "Clear the scrollback content of the eshell window."
+  (interactive)
+  (let ((inhibit-read-only t))
+    (erase-buffer)))
+
 (defun eshell-get-old-input (&optional use-current-region)
   "Return the command input on the current line."
   (if use-current-region