Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv21597
Modified Files: syntax.lisp Log Message: minor stuff.
Date: Sat Jan 1 11:49:27 2005 Author: rstrandh
Index: climacs/syntax.lisp diff -u climacs/syntax.lisp:1.16 climacs/syntax.lisp:1.17 --- climacs/syntax.lisp:1.16 Sat Jan 1 11:43:39 2005 +++ climacs/syntax.lisp Sat Jan 1 11:49:26 2005 @@ -238,8 +238,8 @@ (defun page-up (pane syntax) (position-window pane syntax) (with-slots (top bot cache) syntax - (let ((nb-lines-in-region (number-of-lines-in-region top bot))) - (when (> (offset top) 0) + (when (> (offset top) 0) + (let ((nb-lines-in-region (number-of-lines-in-region top bot))) (setf (offset bot) (offset top)) (end-of-line bot) (loop repeat nb-lines-in-region