aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-mode.el11
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."
943 (eshell-bol) 943 (eshell-bol)
944 (kill-region (point) here)))) 944 (kill-region (point) here))))
945 945
946(defun eshell-show-maximum-output () 946(defun eshell-show-maximum-output (&optional interactive)
947 "Put the end of the buffer at the bottom of the window." 947 "Put the end of the buffer at the bottom of the window.
948 (interactive) 948When run interactively, widen the buffer first."
949 (if (interactive-p) 949 (interactive "p")
950 (if interactive
950 (widen)) 951 (widen))
951 (goto-char (point-max)) 952 (goto-char (point-max))
952 (recenter -1)) 953 (recenter -1))
@@ -1002,7 +1003,7 @@ a key."
1002 (let ((pos (point))) 1003 (let ((pos (point)))
1003 (if (bobp) 1004 (if (bobp)
1004 (if (interactive-p) 1005 (if (interactive-p)
1005 (error "Buffer too short to truncate")) 1006 (message "Buffer too short to truncate"))
1006 (delete-region (point-min) (point)) 1007 (delete-region (point-min) (point))
1007 (if (interactive-p) 1008 (if (interactive-p)
1008 (message "Truncated buffer from %d to %d lines (%.1fk freed)" 1009 (message "Truncated buffer from %d to %d lines (%.1fk freed)"