diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2021-09-14 22:10:14 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2021-09-14 22:10:14 +0200 |
| commit | 5ebad79e622e0e645bdcf0a149091698e9bc877f (patch) | |
| tree | cc81a6bee276b294255042d9fd0ac87dfded2dcd | |
| parent | 3405c85ae402ae53b3b731868e18bd51ea928f37 (diff) | |
| download | emacs-feature/rcirc-update.tar.gz | |
Fix interactive forms for rcirc-define-commandfeature/rcirc-update
* rcirc.el (rcirc-define-command): Handle string descriptors correctly
| -rw-r--r-- | lisp/net/rcirc.el | 4 |
1 files 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)) |