From cc6d9c0c83fb62172aec5456c1ae16f217478346 Mon Sep 17 00:00:00 2001 From: Gabriel Beauchamp Date: Mon, 17 Sep 2018 17:07:13 -0400 Subject: [PATCH] * lisp/erc/erc.el (erc-handle-irc-url): Remove warning during compilation. --- lisp/erc/erc.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index fc51009641..eb9082fa2f 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -5450,14 +5450,14 @@ erc-send-input (beep)) nil) (t - (defvar str) ;; FIXME: Make it obey the "erc-" prefix convention. - (let ((str input) + (defvar erc--str) + (let ((erc--str input) (erc-insert-this t)) (setq erc-send-this t) (run-hook-with-args 'erc-send-pre-hook input) (when erc-send-this - (if (or (string-match "\n" str) - (not (string-match erc-command-regexp str))) + (if (or (string-match "\n" erc--str) + (not (string-match erc-command-regexp erc--str))) (mapc (lambda (line) (mapc @@ -5468,8 +5468,8 @@ erc-send-input (null erc-flood-protect) t)) (or (and erc-flood-protect (erc-split-line line)) (list line)))) - (split-string str "\n")) - (erc-process-input-line (concat str "\n") t nil)) + (split-string erc--str "\n")) + (erc-process-input-line (concat erc--str "\n") t nil)) t))))) (defun erc-display-command (line) -- 2.17.1