Mercurial > emacs
view lisp/gnus/unsubscribe.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.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 21 May 2001 12:23:19 +0000 |
parents | 354a5b33d058 |
children | 55fd4f77387a |
line wrap: on
line source
/* XPM */ static char *magick[] = { /* columns rows colors chars-per-pixel */ "24 24 18 1", " c Gray6", ". c Gray12", "X c #2ff42ff42ff4", "o c #3fff3fff3fff", "O c Gray28", "+ c #53e353e353e3", "@ c #5fe55fe55fe5", "# c #67e767e767e7", "$ c #77d777d777d7", "% c Gray50", "& c Gray56", "* c #9fff9fff9fff", "= c Gray70", "- c Gray75", "; c Gray81", ": c #dfffdfffdfff", "> c #efffefffefff", ", c Gray100", /* pixels */ "------------------------", "------------------------", "------------------------", "----@Xooooo oooXO=------", "----@-,,,:-o,,,-o#------", "----@-,,,@:o,,,-%;+-----", "----@-;%@,,o,,,;ooX@----", "----@@%o@%%.,,,,,,-@----", "----@&-----X,,,,,,-@----", "----@-,,,**o,,,,,,-@----", "----@-:-**,o,,,,,,-@----", "----@->%*,,o,,,,,,-@----", "----@Xooooo ,,,,,,-@----", "----@-,,,:-o,,,,,,-@----", "----@-,,,@:o,,,,,,-@----", "----@-;%@,,o,,,,,,-@----", "----@@%o@%%.,,,,,,-@----", "----@&-----X,,,,,,-@----", "----@-,,,,,o,,,,,,-@----", "----@-,,,,,o,,,,,,-@----", "----@-,,,,,o,,,,,,-@----", "----$XXXXXXXXXXXXXX$----", "------------------------", "------------------------" };