diff options
| author | Lars Ingebrigtsen | 2019-06-19 18:29:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-19 18:29:17 +0200 |
| commit | c6239cc113dff2c78ec981614e76a0564d3b0340 (patch) | |
| tree | e5a7938e293b57ca3b0f7344d044312912c3dbfe | |
| parent | 71214441005c76159a21b2153b6921788bc5152d (diff) | |
| download | emacs-c6239cc113dff2c78ec981614e76a0564d3b0340.tar.gz emacs-c6239cc113dff2c78ec981614e76a0564d3b0340.zip | |
Fix typo in previous erc.el change
* lisp/erc/erc.el (erc-send-input): Fix typo in previous checkin.
| -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 |