Fix issues with argument parsing in rcirc-define-command

* rcirc.el (rcirc-define-command): Fix issues

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 4f8d9612c6afa9c04cd4c902f64079efa17a87c3..caec150848974e6c6a5e414dfba3b4f4934dc35e 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2453,9 +2453,9 @@ that, an interactive form can specified."
                  "\nby `rcirc-buffer-process' and `rcirc-target' will be used.")
          (interactive (list ,@interactive-spec))
          (unless (if (listp ,argument)
-                     (not (<= ,required (length ,argument) ,total))
+                     (<= ,required (length ,argument) ,total)
                    (string-match ,regexp ,argument))
-           (user-error "Malformed input (%s): %S" ,command ',arguments))
+           (user-error "Malformed input (%s): %S" ',command ',argument))
          (let ((process (or process (rcirc-buffer-process)))
               (target (or target rcirc-target)))
            (ignore target process)