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