view lisp/sb-pg-plus.xpm @ 41693:fce351ce81cf

(shiftf): Fix the fast case so (let ((a 1) (b 2)) (shiftf a b (cons a b)) b) returns (1 . 2). (cl-make-type-test): Use char-valid-p for `character'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 30 Nov 2001 00:56:45 +0000
parents b6a19b71d4b7
children c2a09ac7b7b1
line wrap: on
line source

/* XPM */
static char * sb_file+_xpm[] = {
"20 15 4 1",
" 	c None",
".	c #828282",
"+	c #000000",
"@	c #FFFFFF",
"       ............ ",
"      .++++++++++++.",
"     .++@@@@@@@@@@+.",
"    .+@+@@@@@@@@@@+.",
"   .+@@+@@@@@@@@@@+.",
"  .+@@@+@@@++@@@@@+.",
" .+@@@@+@@@++@@@@@+.",
".+++++++@++++++@@@+.",
".+@@@@@@@++++++@@@+.",
".+@@@@@@@@@++@@@@@+.",
".+@@@@@@@@@++@@@@@+.",
".+@@@@@@@@@@@@@@@@+.",
".+@@@@@@@@@@@@@@@@+.",
".++++++++++++++++++.",
" .................. "};