Mercurial > emacs
comparison lisp/play/snake.el @ 90203:187d6a1f84f7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 485-492)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 92-94)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 22 Jul 2005 08:27:27 +0000 |
parents | f9a65d7ebd29 1818c2670a66 |
children | edf295560b5a |
comparison
equal
deleted
inserted
replaced
90202:7597b4a23c3b | 90203:187d6a1f84f7 |
---|---|
368 (use-local-map snake-null-map) | 368 (use-local-map snake-null-map) |
369 | 369 |
370 (setq major-mode 'snake-mode) | 370 (setq major-mode 'snake-mode) |
371 (setq mode-name "Snake") | 371 (setq mode-name "Snake") |
372 | 372 |
373 (setq mode-popup-menu | 373 (unless (featurep 'emacs) |
374 '("Snake Commands" | 374 (setq mode-popup-menu |
375 ["Start new game" snake-start-game] | 375 '("Snake Commands" |
376 ["End game" snake-end-game | 376 ["Start new game" snake-start-game] |
377 (snake-active-p)] | 377 ["End game" snake-end-game |
378 ["Pause" snake-pause-game | 378 (snake-active-p)] |
379 (and (snake-active-p) (not snake-paused))] | 379 ["Pause" snake-pause-game |
380 ["Resume" snake-pause-game | 380 (and (snake-active-p) (not snake-paused))] |
381 (and (snake-active-p) snake-paused)])) | 381 ["Resume" snake-pause-game |
382 (and (snake-active-p) snake-paused)]))) | |
382 | 383 |
383 (setq gamegrid-use-glyphs snake-use-glyphs-flag) | 384 (setq gamegrid-use-glyphs snake-use-glyphs-flag) |
384 (setq gamegrid-use-color snake-use-color-flag) | 385 (setq gamegrid-use-color snake-use-color-flag) |
385 | 386 |
386 (gamegrid-init (snake-display-options)) | 387 (gamegrid-init (snake-display-options)) |