Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv12977

Modified Files: readline.lisp Log Message: Minor fix: dont assume the screen is 25 characters high.

Date: Thu Jul 29 09:20:18 2004 Author: ffjeld

Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.4 movitz/losp/lib/readline.lisp:1.5 --- movitz/losp/lib/readline.lisp:1.4 Fri Feb 13 14:11:19 2004 +++ movitz/losp/lib/readline.lisp Thu Jul 29 09:20:18 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.4 2004/02/13 22:11:19 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.5 2004/07/29 16:20:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -135,7 +135,7 @@ when (member key terminator-keys) do (when displayed-completions-p (do ((y (1+ (cursor-y console)) (1+ y))) - ((>= y 25)) + ((>= y (console-height console))) (clear-line console 0 y))) and return key do (case key