diff options
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-mode.el | 11 |
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) | 948 | When 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)" |