changeset 4880:a658d0e341b1

(comint-scroll-to-bottom-on-input) (comint-scroll-to-bottom-on-input): Default to nil if baud-rate<=9600. (comint-filename-prefix): Deleted.

--- a/lisp/comint.el	Mon Oct 25 04:42:12 1993 +0000
+++ b/lisp/comint.el	Mon Oct 25 04:53:22 1993 +0000
@@ -182,19 +182,25 @@
 
 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 @@
 `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'.