Mercurial > emacs
view etc/images/cut.xpm @ 109157:76b683a5339b
Minor zone.el fixes for bug#6483.
Zone did not like the intangible newlines etc in the gomoku buffer.
* lisp/play/zone.el (top-level): Do not require timer, tabify, or cl.
(zone-shift-left): Ignore intangibility, and any errors from forward-char.
(zone-shift-right): Remove no-op end-of-line. Ignore intangibility.
(zone-pgm-putz-with-case): Use upcase-region rather than inserting,
deleting, and copying text properties.
(zone-line-specs, zone-pgm-stress): Check forward-line exit status.
(zone-pgm-rotate): Handle odd buffers like that of gomoku, where getting
to point-max is hard.
(zone-fret, zone-fill-out-screen): Replace cl's do with dotimes.
(zone-fill-out-screen): Ignore intangibility.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 06 Jul 2010 21:16:27 -0700 |
parents | 28718fa5d988 |
children |
line wrap: on
line source
/* XPM */ static char * cut_xpm[] = { "24 24 40 1", " c None", ". c #000000", "+ c #C9C7C2", "@ c #E6E4E0", "# c #EFEEED", "$ c #494946", "% c #73726E", "& c #F0EEED", "* c #7F7D75", "= c #F2F1EF", "- c #D2CFC8", "; c #E7E7E4", "> c #BAB5AB", ", c #565653", "' c #EDECE9", ") c #A4A097", "! c #817F7E", "~ c #4E4C48", "{ c #F6F5F4", "] c #474541", "^ c #EFEEEC", "/ c #8C8B8A", "( c #F3F2F0", "_ c #77746D", ": c #323232", "< c #EBEBEA", "[ c #605D58", "} c #F5F4F3", "| c #CECCC7", "1 c #363634", "2 c #6F6E6D", "3 c #BEBDBB", "4 c #EAE7E4", "5 c #B8B5B1", "6 c #474747", "7 c #DAD8D4", "8 c #9B9996", "9 c #161615", "0 c #6D6B6A", "a c #3A3837", " ", " ", " . . ", " . . ", " .+. .@. ", " .#$ %@. ", " .&*. .=-. ", " .;>, %'). ", " !#*. .=-~ ", " .{>] ~^>. ", " /(_.:<-[ ", " .}|123>. ", " .456>. ", " .78.. ", " .90a. ", " ............. ", " . ... ... ... ", " .. .. .. .. ", " . . . . ", " .. .. .. .. ", " .... .. . ", " .... .... ", " ", " "};