Remove annoying warnings about let-binding

* src/data.c (Fmake_variable_buffer_local, Fmake_local_variable):
Remove warnings about making symbols local while let-bound.
(Bug#25561)

diff --git a/src/data.c b/src/data.c
index 12dc2df0bace97798e66c0b662092adf9e371ef5..ba5bdc5df3ae884b366e0ad84b315f93d52d4235 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1834,15 +1834,6 @@ The function `default-value' gets the default value and `set-default' sets it.
       blv = make_blv (sym, forwarded, valcontents);
       sym->redirect = SYMBOL_LOCALIZED;
       SET_SYMBOL_BLV (sym, blv);
-      {
-       Lisp_Object symbol;
-       XSETSYMBOL (symbol, sym); /* In case `variable' is aliased.  */
-       if (let_shadows_global_binding_p (symbol))
-         {
-           AUTO_STRING (format, "Making %s buffer-local while let-bound!");
-           CALLN (Fmessage, format, SYMBOL_NAME (variable));
-         }
-      }
     }
 
   blv->local_if_set = 1;
@@ -1916,16 +1907,6 @@ Instead, use `add-hook' and specify t for the LOCAL argument.  */)
       blv = make_blv (sym, forwarded, valcontents);
       sym->redirect = SYMBOL_LOCALIZED;
       SET_SYMBOL_BLV (sym, blv);
-      {
-       Lisp_Object symbol;
-       XSETSYMBOL (symbol, sym); /* In case `variable' is aliased.  */
-       if (let_shadows_global_binding_p (symbol))
-         {
-           AUTO_STRING (format, "Making %s local to %s while let-bound!");
-           CALLN (Fmessage, format, SYMBOL_NAME (variable),
-                  BVAR (current_buffer, name));
-         }
-      }
     }
 
   /* Make sure this buffer has its own value of symbol.  */