From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Nov 2004 10:05:52 +0000 (+0000)
Subject: (eshell-show-maximum-output): Don't use interactive-p.
X-Git-Tag: ttn-vms-21-2-B4~4202
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e80ba3c4f2db828282a978ba6cf0f747216a340;p=emacs.git

(eshell-show-maximum-output): Don't use interactive-p.
(eshell-truncate-buffer): Just message, no error, if buffer is short.
---

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)"