From f4ef65c7419d633ea05dbada515d52514652ee3c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 25 Oct 1993 04:53:22 +0000 Subject: [PATCH] (comint-scroll-to-bottom-on-input) (comint-scroll-to-bottom-on-input): Default to nil if baud-rate<=9600. (comint-filename-prefix): Deleted. --- lisp/comint.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index c4f8630e851..d2f1db93f2a 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -182,19 +182,25 @@ See also `comint-read-input-ring' and `comint-write-input-ring'. This variable is buffer-local, and is a good thing to set in mode hooks.") -(defvar comint-scroll-to-bottom-on-input 'this +(defvar comint-scroll-to-bottom-on-input + (if (> baud-rate 9600) 'this) "*Controls whether input to interpreter causes window to scroll. If nil, then do not scroll. If t or `all', scroll all windows showing buffer. If `this', scroll only the selected window. +The default is `this' for fast terminals, nil for slower ones. + See `comint-preinput-scroll-to-bottom'. This variable is buffer-local.") -(defvar comint-scroll-to-bottom-on-output 'this +(defvar comint-scroll-to-bottom-on-output + (if (> baud-rate 9600) 'this) "*Controls whether interpreter output causes window to scroll. If nil, then do not scroll. If t or `all', scroll all windows showing buffer. If `this', scroll only the selected window. If `others', scroll only those that are not the selected window. +The default is `this' for fast terminals, nil for slower ones. + See variable `comint-scroll-show-maximum-output' and function `comint-postoutput-scroll-to-bottom'. This variable is buffer-local.") @@ -223,11 +229,6 @@ It returns the text to be submitted as process input. The default is `comint-get-old-input-default', which grabs the current line, and strips off leading text matching `comint-prompt-regexp'.") -(defvar comint-filename-prefix "" - "Prefix prepended to all absolute file names taken from process input. -This is used by the completion functions, and by directory tracking in shell -mode.") - (defvar comint-after-partial-filename-command 'comint-after-partial-filename "Function that returns non-nil if point is after a file name. By default this is `comint-after-partial-filename'. -- 2.39.5