diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 19 |
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. */ |