From 5ebad79e622e0e645bdcf0a149091698e9bc877f Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Tue, 14 Sep 2021 22:10:14 +0200 Subject: [PATCH] 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 b0374a545cd..bc67562d2d3 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)) -- 2.39.5