mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Remove annoying warnings about let-binding

Browse Source 
* src/data.c (Fmake_variable_buffer_local, Fmake_local_variable):
Remove warnings about making symbols local while let-bound.
(Bug#25561)
This commit is contained in:
Eli Zaretskii 2017-02-18 11:28:42 +02:00
parent a83b66923c
commit 73ea77c856
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/data.c
View File

@ -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. */