Index: /trunk/ccl/hemlock/src/cursor.lisp
===================================================================
--- /trunk/ccl/hemlock/src/cursor.lisp	(revision 627)
+++ /trunk/ccl/hemlock/src/cursor.lisp	(revision 628)
@@ -326,27 +326,5 @@
 ;;; exactly.
 ;;;
-(defun scroll-window (window n)
-  "Scroll Window down N lines, up if negative."
-  (let ((start (window-display-start window))
-	(point (window-point window))
-	(width (window-width window))
-	(height (window-height window)))
-    (cond ((dis-line-offset-guess start n width))
-	  ((minusp n)
-	   (buffer-start start))
-	  (t
-	   (buffer-end start)
-	   (let ((fraction (- (truncate height 3) height)))
-	     (dis-line-offset-guess start fraction width))))
-    (update-window-image window)
-    (let ((iscurrent (eq window *current-window*))
-	  (bpoint (buffer-point (window-buffer window))))
-      (when iscurrent (move-mark point bpoint))
-      (unless (%displayed-p point window)
-	(move-mark point start)
-	(dis-line-offset-guess point (truncate (window-height window) 2)
-			       width)
-      (when iscurrent (move-mark bpoint point)))))
-  t)
+