From 3e80ba3c4f2db828282a978ba6cf0f747216a340 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Nov 2004 10:05:52 +0000 Subject: [PATCH] (eshell-show-maximum-output): Don't use interactive-p. (eshell-truncate-buffer): Just message, no error, if buffer is short. --- lisp/eshell/esh-mode.el | 11 ++++++----- 1 file 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)" -- 2.39.5