[beirc-cvs] CVS beirc

[afuchs]

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