Fix arglist of riece-command-set-operators and -speakers.

* riece-commands.el (riece-command-set-operators)
(riece-command-set-speakers): Revert the arglist change in the
last commit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index faea2ca..716768c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-04-20  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-commands.el (riece-command-set-operators)
+       (riece-command-set-speakers): Revert the arglist change in the
+       last commit.
+

 2011-04-04  Daiki Ueno  <ueno@unixuser.org>
 
        * Use lexical binding.
 2011-04-04  Daiki Ueno  <ueno@unixuser.org>
 
        * Use lexical binding.

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index a6145cc..afaf950 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -343,7 +343,7 @@ the layout to the selected layout-name."
                               (riece-identity-prefix channel)
                               change))))
 
                               (riece-identity-prefix channel)
                               change))))
 

-(defun riece-command-set-operators (users)
+(defun riece-command-set-operators (users &optional _arg)

   (interactive
    (progn
      (riece-check-channel-commands-are-usable t)
   (interactive
    (progn
      (riece-check-channel-commands-are-usable t)


@@ -378,7 +378,7 @@ the layout to the selected layout-name."
                 (mapconcat #'identity (nreverse group) " ")))
        (setq group nil)))))
 
                 (mapconcat #'identity (nreverse group) " ")))
        (setq group nil)))))
 

-(defun riece-command-set-speakers (users)
+(defun riece-command-set-speakers (users &optional _arg)

   (interactive
    (progn
      (riece-check-channel-commands-are-usable t)
   (interactive
    (progn
      (riece-check-channel-commands-are-usable t)