diff options
| author | Philip Kaludercic | 2021-09-14 22:10:14 +0200 |
|---|---|---|
| committer | Philip Kaludercic | 2021-09-14 22:10:14 +0200 |
| commit | 5ebad79e622e0e645bdcf0a149091698e9bc877f (patch) | |
| tree | cc81a6bee276b294255042d9fd0ac87dfded2dcd | |
| parent | 3405c85ae402ae53b3b731868e18bd51ea928f37 (diff) | |
| download | emacs-feature/rcirc-update.tar.gz emacs-feature/rcirc-update.zip | |
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." | |||
| 2569 | (when (stringp (car body)) | 2569 | (when (stringp (car body)) |
| 2570 | (setq documentation (pop body))) | 2570 | (setq documentation (pop body))) |
| 2571 | (when (eq (car-safe (car-safe body)) 'interactive) | 2571 | (when (eq (car-safe (car-safe body)) 'interactive) |
| 2572 | (setq interactive-spec (cdr (pop body)))) | 2572 | (setq interactive-spec (cadr (pop body)))) |
| 2573 | `(progn | 2573 | `(progn |
| 2574 | (defun ,fn-name (,argument &optional process target) | 2574 | (defun ,fn-name (,argument &optional process target) |
| 2575 | ,(concat documentation | 2575 | ,(concat documentation |
| 2576 | "\n\nNote: If PROCESS or TARGET are nil, the values given" | 2576 | "\n\nNote: If PROCESS or TARGET are nil, the values given" |
| 2577 | "\nby `rcirc-buffer-process' and `rcirc-target' will be used.") | 2577 | "\nby `rcirc-buffer-process' and `rcirc-target' will be used.") |
| 2578 | (interactive (list ,@interactive-spec)) | 2578 | (interactive ,interactive-spec) |
| 2579 | (unless (if (listp ,argument) | 2579 | (unless (if (listp ,argument) |
| 2580 | (<= ,required (length ,argument) ,total) | 2580 | (<= ,required (length ,argument) ,total) |
| 2581 | (string-match ,regexp ,argument)) | 2581 | (string-match ,regexp ,argument)) |