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: |