Raymond Toy pushed to branch issue-327-fix-crlf-lf-eol at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/hemlock/command.lisp
    ... ... @@ -311,7 +311,7 @@
    311 311
       window, up one screenfull.  If P is supplied then scroll that
    
    312 312
       many lines."
    
    313 313
       (if p
    
    314
    -      (scroll-window window (- p))
    
    314
    +      (scroll-window window (- p))
    
    315 315
           (let ((height (- (window-height window)))
    
    316 316
     	    (overlap (- (value scroll-overlap))))
    
    317 317
     	(scroll-window window (if (>= height overlap)