Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv766
Modified Files: application.lisp Log Message: Fix the hostname translator: add a tester to it that returns true only for the 'hostmask input-context.
Date: Wed Sep 28 21:40:08 2005 Author: afuchs
Index: beirc/application.lisp diff -u beirc/application.lisp:1.15 beirc/application.lisp:1.16 --- beirc/application.lisp:1.15 Wed Sep 28 21:33:28 2005 +++ beirc/application.lisp Wed Sep 28 21:40:07 2005 @@ -493,9 +493,11 @@ (receiver-from-tab-pane (find-in-tab-panes-list object 'tab-layout-pane)))
-#+(or) ; XXX: for some reason, this translator is activated when accepting NICKNAME. (define-presentation-translator nickname-to-hostmask-translator - (nickname hostmask beirc) + (nickname hostmask beirc + :tester ((object context-type) + (declare (ignore object)) + (eql context-type 'hostmask))) (object) (format nil "*!*@~A" (irc:hostname (irc:find-user (current-connection *application-frame*) object))))