aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c50
1 files changed, 0 insertions, 50 deletions
diff --git a/src/data.c b/src/data.c
index 098407200d5..c73f04cf638 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1304,56 +1304,6 @@ set_internal (Lisp_Object symbol, Lisp_Object newval, Lisp_Object where,
1304 default: emacs_abort (); 1304 default: emacs_abort ();
1305 } 1305 }
1306 1306
1307
1308 const char* symname = SDATA(sym->name);
1309
1310 if( EQ(Vwatch_object, symbol) )
1311 {
1312 static int nest_level = 0;
1313 if(nest_level++ == 0)
1314 {
1315 switch(sym->redirect)
1316 {
1317 case SYMBOL_PLAINVAL:
1318 {
1319 AUTO_STRING (format, "Setting symbol '%s'; redirect: SYMBOL_PLAINVAL");
1320 CALLN (Fmessage, format, SYMBOL_NAME (symbol));
1321 break;
1322 }
1323 case SYMBOL_VARALIAS:
1324 {
1325 AUTO_STRING (format, "Setting symbol '%s'; redirect: SYMBOL_VARALIAS");
1326 CALLN (Fmessage, format, SYMBOL_NAME (symbol));
1327 break;
1328 }
1329 case SYMBOL_LOCALIZED:
1330 {
1331 AUTO_STRING (format, "Setting symbol '%s'; redirect: SYMBOL_LOCALIZED");
1332 CALLN (Fmessage, format, SYMBOL_NAME (symbol));
1333 break;
1334 }
1335 case SYMBOL_FORWARDED:
1336 {
1337 AUTO_STRING (format, "Setting symbol '%s'; redirect: SYMBOL_FORWARDED");
1338 CALLN (Fmessage, format, SYMBOL_NAME (symbol));
1339 break;
1340 }
1341
1342 default:
1343 {
1344 AUTO_STRING (format, "Setting symbol '%s'; redirect: UNKNOWN");
1345 CALLN (Fmessage, format, SYMBOL_NAME (symbol));
1346 break;
1347 }
1348 }
1349 }
1350 nest_level--;
1351 }
1352
1353
1354
1355
1356
1357 start: 1307 start:
1358 switch (sym->redirect) 1308 switch (sym->redirect)
1359 { 1309 {