feature/rcirc-update 5ebad79 7/7: Fix interactive forms for rcirc-define-command

[Philip Kaludercic]

branch: feature/rcirc-update
commit 5ebad79e622e0e645bdcf0a149091698e9bc877f
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Fix interactive forms for rcirc-define-command
    
    * rcirc.el (rcirc-define-command): Handle string descriptors correctly
---
 lisp/net/rcirc.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index b0374a5..bc67562 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2569,13 +2569,13 @@ that, an interactive form can specified."
     (when (stringp (car body))
       (setq documentation (pop body)))
     (when (eq (car-safe (car-safe body)) 'interactive)
-      (setq interactive-spec (cdr (pop body))))
+      (setq interactive-spec (cadr (pop body))))
     `(progn
        (defun ,fn-name (,argument &optional process target)
          ,(concat documentation
                   "\n\nNote: If PROCESS or TARGET are nil, the values given"
                  "\nby `rcirc-buffer-process' and `rcirc-target' will be 
used.")
-         (interactive (list ,@interactive-spec))
+         (interactive ,interactive-spec)
          (unless (if (listp ,argument)
                      (<= ,required (length ,argument) ,total)
                    (string-match ,regexp ,argument))