[mcclim-cvs] CVS mcclim

[thenriksen]

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)