From 73ea77c856ded90cfb1a03a9d87827b5ecb93a7c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 18 Feb 2017 11:28:42 +0200 Subject: [PATCH] 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 12dc2df0bac..ba5bdc5df3a 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. */ -- 2.39.5