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

[Robert Strandh]

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