(eshell-show-maximum-output): Don't use interactive-p.

(eshell-truncate-buffer): Just message, no error, if buffer is short.

1 files changed, 6 insertions, 5 deletions

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index f76900bf482..ea9ae01a2f4 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -943,10 +943,11 @@ With a prefix argument, narrows region to last command output."
       (eshell-bol)
       (kill-region (point) here))))
 
-(defun eshell-show-maximum-output ()
-  "Put the end of the buffer at the bottom of the window."
-  (interactive)
-  (if (interactive-p)
+(defun eshell-show-maximum-output (&optional interactive)
+  "Put the end of the buffer at the bottom of the window.
+When run interactively, widen the buffer first."
+  (interactive "p")
+  (if interactive
       (widen))
   (goto-char (point-max))
   (recenter -1))
@@ -1002,7 +1003,7 @@ a key."
       (let ((pos (point)))
         (if (bobp)
             (if (interactive-p)
-                (error "Buffer too short to truncate"))
+                (message "Buffer too short to truncate"))
           (delete-region (point-min) (point))
           (if (interactive-p)
               (message "Truncated buffer from %d to %d lines (%.1fk freed)"