aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c19
1 files changed, 0 insertions, 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.
1834 blv = make_blv (sym, forwarded, valcontents); 1834 blv = make_blv (sym, forwarded, valcontents);
1835 sym->redirect = SYMBOL_LOCALIZED; 1835 sym->redirect = SYMBOL_LOCALIZED;
1836 SET_SYMBOL_BLV (sym, blv); 1836 SET_SYMBOL_BLV (sym, blv);
1837 {
1838 Lisp_Object symbol;
1839 XSETSYMBOL (symbol, sym); /* In case `variable' is aliased. */
1840 if (let_shadows_global_binding_p (symbol))
1841 {
1842 AUTO_STRING (format, "Making %s buffer-local while let-bound!");
1843 CALLN (Fmessage, format, SYMBOL_NAME (variable));
1844 }
1845 }
1846 } 1837 }
1847 1838
1848 blv->local_if_set = 1; 1839 blv->local_if_set = 1;
@@ -1916,16 +1907,6 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */)
1916 blv = make_blv (sym, forwarded, valcontents); 1907 blv = make_blv (sym, forwarded, valcontents);
1917 sym->redirect = SYMBOL_LOCALIZED; 1908 sym->redirect = SYMBOL_LOCALIZED;
1918 SET_SYMBOL_BLV (sym, blv); 1909 SET_SYMBOL_BLV (sym, blv);
1919 {
1920 Lisp_Object symbol;
1921 XSETSYMBOL (symbol, sym); /* In case `variable' is aliased. */
1922 if (let_shadows_global_binding_p (symbol))
1923 {
1924 AUTO_STRING (format, "Making %s local to %s while let-bound!");
1925 CALLN (Fmessage, format, SYMBOL_NAME (variable),
1926 BVAR (current_buffer, name));
1927 }
1928 }
1929 } 1910 }
1930 1911
1931 /* Make sure this buffer has its own value of symbol. */ 1912 /* Make sure this buffer has its own value of symbol. */