From c6239cc113dff2c78ec981614e76a0564d3b0340 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 19 Jun 2019 18:29:17 +0200 Subject: [PATCH] Fix typo in previous erc.el change * lisp/erc/erc.el (erc-send-input): Fix typo in previous checkin. --- lisp/erc/erc.el | 36 ++++++++++++++++++------------------ 1 file 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 -- 2.39.2