mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Added comint-buffer-maximum-size and comint-truncate-buffer.

Browse source
This commit is contained in:
Simon Marshall 1995-02-25 16:24:51 +00:00
parent 4841acc437
commit 39a185a951
1 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/comint.el
View file

@ -209,6 +209,11 @@ If non-nil, then show the maximum output when the window is scrolled.
See variable `comint-scroll-to-bottom-on-output' and function
`comint-postoutput-scroll-to-bottom'. This variable is buffer-local.")
(defvar comint-buffer-maximum-size 1024
"*The maximum size in lines for comint buffers.
Comint buffers are truncated from the top to be no greater than this number, if
the function `comint-truncate-buffer' is on `comint-output-filter-functions'.")
(defvar comint-input-ring-size 32
"Size of input history ring.")
@ -1292,11 +1297,19 @@ This function should be in the list `comint-output-filter-functions'."
nil t))
(set-buffer current))))
(defun comint-truncate-buffer (&optional string)
"Truncate the buffer to `comint-buffer-maximum-size'.
This function could be on `comint-output-filter-functions' or bound to a key."
(interactive)
(save-excursion
(goto-char (point-max))
(forward-line (- comint-buffer-maximum-size))
(beginning-of-line)
(delete-region (point-min) (point))))
(defun comint-strip-ctrl-m (&optional string)
"Strip trailing `^M' characters from the current output group.
This function could be in the list `comint-output-filter-functions' or bound to
a key."
This function could be on `comint-output-filter-functions' or bound to a key."
(interactive)
(let ((pmark (process-mark (get-buffer-process (current-buffer)))))
(save-excursion