diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-10-25 04:53:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-10-25 04:53:22 +0000 |
| commit | f4ef65c7419d633ea05dbada515d52514652ee3c (patch) | |
| tree | e4d8944eebe765402dd1e57c38702ff159e04ab1 /lisp/comint.el | |
| parent | f73b0adae74fa2470bb5a4cb238af38a4fdef985 (diff) | |
| download | emacs-f4ef65c7419d633ea05dbada515d52514652ee3c.tar.gz | |
(comint-scroll-to-bottom-on-input)
(comint-scroll-to-bottom-on-input): Default to nil if baud-rate<=9600.
(comint-filename-prefix): Deleted.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 15 |
1 files 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'. |