diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 18:29:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 18:29:17 +0200 |
| commit | c6239cc113dff2c78ec981614e76a0564d3b0340 (patch) | |
| tree | e5a7938e293b57ca3b0f7344d044312912c3dbfe | |
| parent | 71214441005c76159a21b2153b6921788bc5152d (diff) | |
| download | emacs-c6239cc113dff2c78ec981614e76a0564d3b0340.tar.gz | |
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." ;; The functions can return nil to inhibit sending. (funcall func state)) (when (and (erc-input-sendp state) - erc-send-this)) - (let ((string (erc-input-string state))) - (if (or (string-match "\n" string) - (not (string-match erc-command-regexp string))) - (mapc - (lambda (line) - (mapc - (lambda (line) - ;; Insert what has to be inserted for this. - (when (erc-input-insertp state) - (erc-display-msg line)) - (erc-process-input-line (concat line "\n") - (null erc-flood-protect) t)) - (or (and erc-flood-protect (erc-split-line line)) - (list line)))) - (split-string string "\n")) - (erc-process-input-line (concat string "\n") t nil)) - t))))) + erc-send-this) + (let ((string (erc-input-string state))) + (if (or (string-match "\n" string) + (not (string-match erc-command-regexp string))) + (mapc + (lambda (line) + (mapc + (lambda (line) + ;; Insert what has to be inserted for this. + (when (erc-input-insertp state) + (erc-display-msg line)) + (erc-process-input-line (concat line "\n") + (null erc-flood-protect) t)) + (or (and erc-flood-protect (erc-split-line line)) + (list line)))) + (split-string string "\n")) + (erc-process-input-line (concat string "\n") t nil)) + t)))))) (defun erc-display-command (line) (when erc-insert-this |