[Emacs-diffs] master 73ea77c: Remove annoying warnings about let-binding

[Eli Zaretskii]

branch: master
commit 73ea77c856ded90cfb1a03a9d87827b5ecb93a7c
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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)
---
 src/data.c | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/src/data.c b/src/data.c
index 12dc2df..ba5bdc5 100644
--- 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.  */