/[cmucl]/src/hemlock/ts-buf.lisp
ViewVC logotype

Diff of /src/hemlock/ts-buf.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by ram, Wed Feb 20 02:31:37 1991 UTC revision 1.6 by chiles, Tue May 14 16:44:46 1991 UTC
# Line 208  Line 208 
208    :setup-function #'setup-typescript    :setup-function #'setup-typescript
209    :documentation "The Typescript mode is used to interact with slave lisps.")    :documentation "The Typescript mode is used to interact with slave lisps.")
210    
211    ;;; This stuff keeps the end of typescript buffers visible in their windows, so
212    ;;; when they are not current, you can still track output being dumped there.
213    ;;;
214    (defun set-recentering-for-typescript-windows (window buffer)
215      (setf (window-display-recentering window) nil)
216      (when (variable-value 'typescript-data :buffer buffer)
217        (setf (window-display-recentering window) t)))
218    ;;;
219    (add-hook window-buffer-hook #'set-recentering-for-typescript-windows)
220    
221    
222  ;;; TYPESCRIPTIFY-BUFFER -- Internal interface.  ;;; TYPESCRIPTIFY-BUFFER -- Internal interface.
223  ;;;  ;;;
224  ;;; Buffer creation code for eval server connections calls this to setup a  ;;; Buffer creation code for eval server connections calls this to setup a

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5