* lisp/erc/erc.el (erc-send-input): Bind `str' dynamically.

Fixes: debbugs:18936

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index ca018c47db86e3c2082d82d6dcb1f14b0eaddfe3..869befc11910b25ecce90a0ac847445bafd68081 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * erc.el (erc-send-input): Bind `str' dynamically (bug#18936).
+
 2014-10-20  Glenn Morris  <rgm@gnu.org>
 
        * Version 24.4 released.

diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index d93e9e02156b3b444f76f45e27431a3aca9ed743..3a107c69f9aa07c6c532ab78a074cabf551ec246 100644 (file)
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -975,7 +975,7 @@ display of that particular string at all."
   "Hook called first when some text is sent through `erc-send-current-line'.
 It gets called with one argument, STRING.
 
-To change the text that will be sent, set the variable STR which is
+To change the text that will be sent, set the variable `str' which is
 used in `erc-send-current-line'.
 
 To change the text inserted into the buffer without changing the text
@@ -5268,6 +5268,7 @@ This returns non-nil only if we actually send anything."
       (beep))
     nil)
    (t
+    (defvar str) ;; FIXME: Make it obey the "erc-" prefix convention.
     (let ((str input)
          (erc-insert-this t))
       (setq erc-send-this t)