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

[Dave Murray]

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

Modified Files:
	pane.lisp 
Log Message:
Fixed off-by-one error in mark-display drawing.

Date: Sun Aug 28 15:57:34 2005
Author: dmurray

Index: climacs/pane.lisp
diff -u climacs/pane.lisp:1.30 climacs/pane.lisp:1.31
--- climacs/pane.lisp:1.30	Fri Aug 19 11:12:48 2005
+++ climacs/pane.lisp	Sun Aug 28 15:57:33 2005
@@ -571,7 +571,7 @@
 (defmethod display-mark ((pane climacs-pane) (syntax basic-syntax))
   (with-slots (top bot) pane
      (let ((mark (mark pane)))
-       (when (< (offset top) (offset mark) (offset bot))
+       (when (<= (offset top) (offset mark) (offset bot))
 	 (let* ((mark-line (number-of-lines-in-region top mark))
 		(style (medium-text-style pane))
 		(ascent (text-style-ascent style pane))