diff options
author | Simon Marshall <[email protected]> | 1995-02-25 16:16:57 +0000 |
---|---|---|
committer | Simon Marshall <[email protected]> | 1995-02-25 16:16:57 +0000 |
commit | 4841acc4374b5d44e70355e84db66b2827f39a43 (patch) | |
tree | a180938a374148be2ac88cc62dafa8e19103befa | |
parent | 8079b5901c7cd5885b085bce67b5a151d7c146bf (diff) |
Moved buffer truncation functionality to comint.el.
-rw-r--r-- | lisp/shell.el | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 64b52c4f1e..ba87a0f8ba 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -156,10 +156,6 @@ This mirrors the optional behavior of tcsh. 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 @@ If you want to make multiple shell buffers, rename the `*shell*' buffer 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 @@ command again." (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'." |