[Emacs-diffs] master c6239cc: Fix typo in previous erc.el change

[Lars Ingebrigtsen]

branch: master
commit c6239cc113dff2c78ec981614e76a0564d3b0340
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 8d5c972..0419f3d 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