view lisp/gnus/exit-summ.xpm @ 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.

/* XPM */
static char *magick[] = {
/* columns rows colors chars-per-pixel */
"24 24 15 1",
"  c Gray0",
". c #0bfb0bfb0bfb",
"X c Gray9",
"o c #23f323f323f3",
"O c #2fef2fef2fef",
"+ c Gray28",
"@ c #53e353e353e3",
"# c #5fdf5fdf5fdf",
"$ c Gray42",
"% c #77d777d777d7",
"& c Gray56",
"* c #9bcb9bcb9bcb",
"= c #a7c7a7c7a7c7",
"- c Gray70",
"; c Gray75",
/* pixels */
"@;;@;;@;;@;;@;;@;;@;;@;;",
";;;;;;;;;;;;;;;;;;;;;;;;",
";;;;;;;;;;;;;;;;;;;;;;;;",
"@;;@;;&=@OOOo     O;;@;;",
";;;;;;X&;;;;=##   O;;;;;",
";;;;;;.%;;;;;;;   O;;;;;",
"@;;@;;@;;@;;*;;   O;;@;;",
";;;;;;;;;;;;%;;   O;;;;;",
";;;;;;O%;;;;;;;   O;;;;;",
"@;;@;;o=;@;;-&-   O;;@;;",
";;;;;;X&;;;;+ &   O;;;;;",
";;;;;;.%;;;;$ &   O;;;;;",
"@;;@;;o=;@;;;;;   O;;@;;",
";;;;;;X&;;;;;;;   O;;;;;",
";;;;;;*;;;;;@;;   O;;;;;",
"@;;@;;&=;@;;;;;   O;;@;;",
";;;;;; #;;;;;&#XO+O;;;;;",
";;;;;;o=;*OO*#o%#+*;;;;;",
"@;;@;@;%OOOO@%*@%*@;;@;;",
";;;;;;;;;;;;;;;;;;;;;;;;",
";;;;;;;;;;;;;;;;;;;;;;;;",
"@;;@;;@;;@;;@;;@;;@;;@;;",
";;;;;;;;;;;;;;;;;;;;;;;;",
";;;;;;;;;;;;;;;;;;;;;;;;"
};