Mercurial > emacs
view lisp/gnus/fuwo.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 23 1", " c Gray0", ". c Gray6", "X c Gray9", "o c Gray12", "O c #2fef2fef2fef", "+ c #3fff3fff3fff", "@ c #53ee53ee53ee", "# c #5fe85fe85fe8", "$ c #67e767e767e7", "% c #6fff6fff6fff", "& c #77ea77ea77ea", "* c #7bdb7bdb7bdb", "= c Gray50", "- c Gray56", "; c #9bd69bd69bd6", ": c #9fff9fff9fff", "> c #a7c7a7c7a7c7", ", c Gray70", "< c Gray75", "1 c Gray81", "2 c #dfffdfffdfff", "3 c #efffefffefff", "4 c Gray100", /* pixels */ ",><,><,><,><,><,><,><,><", ">-<>-<>-<>-<>-<>-<>-<>-<", "<<<<<<<<<<<<<<<<<<<<<<<<", ",><,><,><,><,><,><,><,><", ">-<>-<>-<>-<>-<>-<>-<>-<", "<<<<<<<<<<<<;O;<<<<<<<<<", ",><,><,><,>< X;,><,><,><", ">-<>-<>-<>-&#-<>-<>-<>-<", "<<<<<<<<<<<;<<<<<<<<<<<<", ",><,><,><,><,><,><,><,><", ">-<>-<>-<-O>>-<>-<>-<>-<", "<<<<<<<<@@<@<<<<<<<<<<<<", ",><<<;*+1<<#;<<,><,><,><", ">-<>#&:<==+#&-<>-<>-<>-<", "<<@@<3+=<1o <#<<<<<<<<<<", ",>O<=+444:+.4=-,><,><,><", ">-O=<4444:4::<$>-<>-<>-<", "<&;444444444+4+<<<<<<<<<", ",#;444444444<=4O<<,><,><", ">-O4444444442=2&-<>-<>-<", "<<;%444444444=<<#<<<<<<<", ",><@2444444444+4=-,><,><", ">-<-=444444444::<$>-<>-<", "<<<,$1444444444+4+<<<<<<" };