Mercurial > emacs
comparison src/bytecode.c @ 27817:09ce77df2610
(Fbyte_code): Remove keyword_symbols_constant_flag.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 23 Feb 2000 10:42:36 +0000 |
| parents | f53ecb062478 |
| children | 334ebb7a551c |
comparison
equal
deleted
inserted
replaced
| 27816:321027008721 | 27817:09ce77df2610 |
|---|---|
| 560 case Bvarset+6: | 560 case Bvarset+6: |
| 561 op = FETCH; | 561 op = FETCH; |
| 562 varset: | 562 varset: |
| 563 { | 563 { |
| 564 Lisp_Object sym, val; | 564 Lisp_Object sym, val; |
| 565 extern int keyword_symbols_constant_flag; | |
| 566 | 565 |
| 567 sym = vectorp[op]; | 566 sym = vectorp[op]; |
| 568 val = POP; | 567 val = POP; |
| 569 | 568 |
| 570 /* Inline the most common case. */ | 569 /* Inline the most common case. */ |
| 577 of checking this here over and over again. --gerd. */ | 576 of checking this here over and over again. --gerd. */ |
| 578 && !EQ (sym, Qnil) | 577 && !EQ (sym, Qnil) |
| 579 && !EQ (sym, Qt) | 578 && !EQ (sym, Qt) |
| 580 && !(XSYMBOL (sym)->name->data[0] == ':' | 579 && !(XSYMBOL (sym)->name->data[0] == ':' |
| 581 && EQ (XSYMBOL (sym)->obarray, initial_obarray) | 580 && EQ (XSYMBOL (sym)->obarray, initial_obarray) |
| 582 && keyword_symbols_constant_flag | |
| 583 && !EQ (val, sym))) | 581 && !EQ (val, sym))) |
| 584 XSYMBOL (sym)->value = val; | 582 XSYMBOL (sym)->value = val; |
| 585 else | 583 else |
| 586 set_internal (sym, val, current_buffer, 0); | 584 set_internal (sym, val, current_buffer, 0); |
| 587 } | 585 } |
