diff options
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/erc.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 8d5c9728285..0419f3d7df6 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -5480,24 +5480,24 @@ This returns non-nil only if we actually send anything." | |||
| 5480 | ;; The functions can return nil to inhibit sending. | 5480 | ;; The functions can return nil to inhibit sending. |
| 5481 | (funcall func state)) | 5481 | (funcall func state)) |
| 5482 | (when (and (erc-input-sendp state) | 5482 | (when (and (erc-input-sendp state) |
| 5483 | erc-send-this)) | 5483 | erc-send-this) |
| 5484 | (let ((string (erc-input-string state))) | 5484 | (let ((string (erc-input-string state))) |
| 5485 | (if (or (string-match "\n" string) | 5485 | (if (or (string-match "\n" string) |
| 5486 | (not (string-match erc-command-regexp string))) | 5486 | (not (string-match erc-command-regexp string))) |
| 5487 | (mapc | 5487 | (mapc |
| 5488 | (lambda (line) | 5488 | (lambda (line) |
| 5489 | (mapc | 5489 | (mapc |
| 5490 | (lambda (line) | 5490 | (lambda (line) |
| 5491 | ;; Insert what has to be inserted for this. | 5491 | ;; Insert what has to be inserted for this. |
| 5492 | (when (erc-input-insertp state) | 5492 | (when (erc-input-insertp state) |
| 5493 | (erc-display-msg line)) | 5493 | (erc-display-msg line)) |
| 5494 | (erc-process-input-line (concat line "\n") | 5494 | (erc-process-input-line (concat line "\n") |
| 5495 | (null erc-flood-protect) t)) | 5495 | (null erc-flood-protect) t)) |
| 5496 | (or (and erc-flood-protect (erc-split-line line)) | 5496 | (or (and erc-flood-protect (erc-split-line line)) |
| 5497 | (list line)))) | 5497 | (list line)))) |
| 5498 | (split-string string "\n")) | 5498 | (split-string string "\n")) |
| 5499 | (erc-process-input-line (concat string "\n") t nil)) | 5499 | (erc-process-input-line (concat string "\n") t nil)) |
| 5500 | t))))) | 5500 | t)))))) |
| 5501 | 5501 | ||
| 5502 | (defun erc-display-command (line) | 5502 | (defun erc-display-command (line) |
| 5503 | (when erc-insert-this | 5503 | (when erc-insert-this |