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))