[beirc-cvs] CVS update: beirc/application.lisp
Max-Gerd Retzlaff
mretzlaff at common-lisp.net
Sun Oct 2 21:39:08 UTC 2005
Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv25833
Modified Files:
application.lisp
Log Message:
Bugfix for JOIN-MISSING-CHANNELS: Try only to connect to the channels
if the current *application-frame* is already connected to an IRC server.
Drops the call to TIME in handle-event ((frame beirc) (event foo-event)).
Date: Sun Oct 2 23:39:07 2005
Author: mretzlaff
Index: beirc/application.lisp
diff -u beirc/application.lisp:1.26 beirc/application.lisp:1.27
--- beirc/application.lisp:1.26 Sun Oct 2 19:34:15 2005
+++ beirc/application.lisp Sun Oct 2 23:39:07 2005
@@ -204,7 +204,7 @@
(pane (actual-application-pane (pane receiver))))
(let ((btmp (pane-scrolled-to-bottom-p pane)))
(setf (pane-needs-redisplay pane) t)
- (time (redisplay-frame-panes frame))
+ (redisplay-frame-panes frame)
(when btmp (scroll-pane-to-bottom pane)))
(medium-force-output (sheet-medium pane)) ;###
))
@@ -267,10 +267,11 @@
(defun join-missing-channels (frame)
(let* ((connection (current-connection frame))
- (server (irc:server-name connection)))
- (loop for join-channel in (cdr (assoc server *auto-join-alist* :test #'equal))
+ (server (when connection (irc:server-name connection))))
+ (when server
+ (loop for join-channel in (cdr (assoc server *auto-join-alist* :test #'equal))
do (unless (gethash join-channel (receivers frame))
- (irc:join connection join-channel)))))
+ (irc:join connection join-channel))))))
(defun load-user-init-file (&key (pathname *beirc-user-init-file*))
(when (probe-file pathname)
More information about the Beirc-cvs
mailing list