Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv27411
Modified Files: input-editing.lisp Log Message: Redraw the input buffer after displaying typeout, causes scrolling and stuff if necessary.
--- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/01 20:28:46 1.66 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/02 19:03:16 1.67 @@ -726,6 +726,7 @@ nmatches mode)) (when (and (> nmatches 0) (eq mode :possibilities)) (print-possibilities possibilities possibility-printer stream) + (redraw-input-buffer stream) (let ((possibility (handler-case (with-input-context (`(completion ,possibilities) :override nil)