mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Moved buffer truncation functionality to comint.el.

Browse Source
This commit is contained in:
Simon Marshall 1995-02-25 16:16:57 +00:00
parent 8079b5901c
commit 4841acc437
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/shell.el
View File

@ -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'."