view etc/letter.xbm @ 37853:93e5959b8a0e

Use SYMBOL_VALUE/SET_SYMBOL_VALUE. (Qcyclic_variable_indirection): New variable. (Fkeywordp): Check for internedness differently. (Fmakunbound): Simplify the test if symbol is a constant. (indirect_variable, Findirect_variable): New functions. (swap_in_symval_forwarding): If SYMBOL is an alias, use the aliased symbol. (let_shadows_buffer_binding_p): Check for variable aliases. (set_internal): Simplify the test if SYMBOL is a constant. If SYMBOL has a buffer-local value and is an alias, use the aliased symbol instead. (syms_of_data): Initialze Qcyclic_variable_indirection and defsubr Sindirect_variable.

#define letter_width 14
#define letter_height 10
static unsigned char letter_bits[] = {
   0xff, 0x3f, 0x07, 0x38, 0x09, 0x24, 0x11, 0x22, 0xe1, 0x21, 0xd1, 0x22,
   0x09, 0x24, 0x05, 0x28, 0x03, 0x30, 0xff, 0x3f};