[climacs-cvs] CVS update: climacs/syntax.lisp
Robert Strandh
rstrandh at common-lisp.net
Sat Jan 1 10:49:28 UTC 2005
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
More information about the Climacs-cvs
mailing list