Mercurial > emacs
changeset 10832:32d4c4ca1ff8
Moved buffer truncation functionality to comint.el.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Sat, 25 Feb 1995 16:16:57 +0000 |
| parents | 94811e4b2a06 |
| children | 77d7d3990300 |
| files | lisp/shell.el |
| diffstat | 1 files changed, 1 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Sat Feb 25 16:10:01 1995 +0000 +++ b/lisp/shell.el Sat Feb 25 16:16:57 1995 +0000 @@ -156,10 +156,6 @@ Detecting executability of files may slow command completion considerably.") -(defvar shell-buffer-maximum-size 1024 - "*The maximum size in lines for shell buffers. -Shell buffers are truncated from the top to be no greater than this number.") - (defvar shell-popd-regexp "popd" "*Regexp to match subshell commands equivalent to popd.") @@ -265,7 +261,7 @@ using \\[rename-buffer] or \\[rename-uniquely] and start a new shell. If you want to make shell buffers limited in length, add the function -`shell-truncate-buffer' to `comint-output-filter-functions'. +`comint-truncate-buffer' to `comint-output-filter-functions'. If you accidentally suspend your process, use \\[comint-continue-subjob] to continue it. @@ -631,14 +627,6 @@ (setq ds (cdr ds)))) (message msg))) -(defun shell-truncate-buffer (string) - "Truncate the buffer to `shell-buffer-maximum-size'." - (save-excursion - (goto-char (point-max)) - (forward-line (- shell-buffer-maximum-size)) - (beginning-of-line) - (delete-region (point-min) (point)))) - (defun shell-forward-command (&optional arg) "Move forward across ARG shell command(s). Does not cross lines. See `shell-command-regexp'."