Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv14194
Modified Files: presentations.lisp Log Message: Fix completion in accept method for receivers for multiple server connections.
--- /project/beirc/cvsroot/beirc/presentations.lisp 2006/02/25 19:55:56 1.10 +++ /project/beirc/cvsroot/beirc/presentations.lisp 2006/03/16 20:44:56 1.11 @@ -107,7 +107,9 @@
(define-presentation-method accept ((type receiver) *standard-input* (view textual-view) &key) (completing-from-suggestions (*standard-input* :partial-completers '(#\Space)) - (maphash #'suggest (receivers *application-frame*)))) + (maphash (lambda (key receiver) + (suggest (second key) receiver)) + (receivers *application-frame*))))
;;; channels