Mercurial > emacs
comparison src/bytecode.c @ 9894:a541739a1ba8
(Fbyte_code): Special case for buffer-local objects is now handled by the more
general test. Simplify.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 11 Nov 1994 07:34:37 +0000 |
| parents | c8c24d83ac00 |
| children | c681703f7ce3 |
comparison
equal
deleted
inserted
replaced
| 9893:8421d09f2afe | 9894:a541739a1ba8 |
|---|---|
| 339 if (!SYMBOLP (v1)) | 339 if (!SYMBOLP (v1)) |
| 340 v2 = Fsymbol_value (v1); | 340 v2 = Fsymbol_value (v1); |
| 341 else | 341 else |
| 342 { | 342 { |
| 343 v2 = XSYMBOL (v1)->value; | 343 v2 = XSYMBOL (v1)->value; |
| 344 #ifdef SWITCH_ENUM_BUG | 344 if (MISCP (v2) || EQ (v2, Qunbound)) |
| 345 switch ((int) XTYPE (v2)) | 345 v2 = Fsymbol_value (v1); |
| 346 #else | |
| 347 switch (XTYPE (v2)) | |
| 348 #endif | |
| 349 { | |
| 350 case Lisp_Symbol: | |
| 351 if (!EQ (v2, Qunbound)) | |
| 352 break; | |
| 353 case Lisp_Misc: | |
| 354 case Lisp_Buffer_Local_Value: | |
| 355 case Lisp_Some_Buffer_Local_Value: | |
| 356 v2 = Fsymbol_value (v1); | |
| 357 } | |
| 358 } | 346 } |
| 359 PUSH (v2); | 347 PUSH (v2); |
| 360 break; | 348 break; |
| 361 | 349 |
| 362 case Bvarset+6: | 350 case Bvarset+6: |
