[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 73ea77c: Remove annoying warnings about let-binding
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 73ea77c: Remove annoying warnings about let-binding |
Date: |
Sat, 18 Feb 2017 04:28:53 -0500 (EST) |
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. */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 73ea77c: Remove annoying warnings about let-binding,
Eli Zaretskii <=