Changeset 629

Timestamp:

Mar 6, 2004, 11:53:25 PM (21 years ago)

Author:

Gary Byers

Message:

Window-scrolling changes.

File:

• trunk/ccl/hemlock/src/command.lisp (modified) (2 diffs)

trunk/ccl/hemlock/src/command.lisp

@@ -301 +301 @@
   window, down one screenfull.  If P is supplied then scroll that
   many lines."
-  (if p
-      (scroll-window window p)      
-      (let ((height (window-height window))
-            (overlap (value scroll-overlap)))
-        (scroll-window window (if (<= height overlap) 
-                                  height (- height overlap))))))
+  (scroll-window window (or p 1)))
 
 (defcommand "Scroll Window Up" (p &optional (window (current-window)))
@@ -314 +309 @@
   window, up one screenfull.  If P is supplied then scroll that
   many lines."
-  (if p
-      (scroll-window window (- p))
-      (let ((height (- (window-height window)))
-            (overlap (- (value scroll-overlap))))
-        (scroll-window window (if (>= height overlap) 
-                                  height (- height overlap))))))
+  (scroll-window window (or p -1)))
 
 (defcommand "Scroll Next Window Down" (p)