[climacs-cvs] CVS update: climacs/pane.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv25110

Modified Files:
	pane.lisp 
Log Message:
Fixed the redisplay bug reported by Christophe Rhodes. 

Date: Wed Apr  6 07:31:54 2005
Author: rstrandh

Index: climacs/pane.lisp
diff -u climacs/pane.lisp:1.23 climacs/pane.lisp:1.24
--- climacs/pane.lisp:1.23	Sat Mar 19 23:08:31 2005
+++ climacs/pane.lisp	Wed Apr  6 07:31:53 2005
@@ -361,6 +361,7 @@
   (let ((nb-lines-in-pane (nb-lines-in-pane pane)))
     (with-slots (top bot cache) pane
        (setf (offset bot) (offset top))
+       (end-of-line bot)
        (loop until (end-of-buffer-p bot)
 	     repeat (1- nb-lines-in-pane)
 	     do (forward-object bot)
@@ -392,8 +393,8 @@
 ;;; Make the cache reflect the contents of the buffer starting at top,
 ;;; trying to preserve contents as much as possible, and inserting a
 ;;; nil entry where buffer contents is unknonwn.  The size of the
-;;; cache size at the end may be smaller than, equal to, or greater
-;;; than the number of lines in the pane. 
+;;; cache at the end may be smaller than, equal to, or greater than
+;;; the number of lines in the pane.
 (defun adjust-cache (pane)
   (let* ((buffer (buffer pane))
 	 (high-mark (high-mark buffer))