[beirc-cvs] CVS update: beirc/application.lisp - beirc-cvs@common-lisp.net - mailman3.common-lisp.net

25 Sep 2005

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv15876
Modified Files:
    application.lisp 
Log Message:
don't do anything on /say <nothing>.
Date: Sun Sep 25 19:58:14 2005
Author: afuchs
Index: beirc/application.lisp
diff -u beirc/application.lisp:1.7 beirc/application.lisp:1.8

--- beirc/application.lisp:1.7	Sun Sep 25 19:55:26 2005
+++ beirc/application.lisp	Sun Sep 25 19:58:14 2005
@@ -367,13 +367,13 @@
       (current-channel)))
(define-beirc-command (com-say :name t) ((what 'mumble))
-  ;; make a fake IRC-PRIV-MESSAGE object
-  (post-message *application-frame*
-                (make-fake-irc-message 'irc:irc-privmsg-message
-                                       :trailing-argument what
-                                       :arguments (list (target))
-                                       :command "PRIVMSG"))
-  (irc:privmsg (current-connection *application-frame*) (target) what))
+  (unless (string= what "")
+    (post-message *application-frame*
+                  (make-fake-irc-message 'irc:irc-privmsg-message
+                                         :trailing-argument what
+                                         :arguments (list (target))
+                                         :command "PRIVMSG"))
+    (irc:privmsg (current-connection *application-frame*) (target) what)))
(define-beirc-command (com-nick :name t) ((new-nick 'string :prompt "new nick"))
   (setf (slot-value *application-frame* 'nick) new-nick) ;This is _not_ the way to do it.

    