# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 793729017 0
# Node ID 32d4c4ca1ff8ac09101c2af08eff00cdc6c38385
# Parent  94811e4b2a062cb33c2f188aad3cf92468c44fcb
Moved buffer truncation functionality to comint.el.

diff -r 94811e4b2a06 -r 32d4c4ca1ff8 lisp/shell.el
--- 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'."