Mercurial > emacs

comparison lisp/play/snake.el @ 64391:1818c2670a66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(snake-mode): Avoid warning.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 2005 18:35:08 +0000
parents 18a818a2ee7c
children 34bd8e434dd7 187d6a1f84f7
comparison
equal deleted inserted replaced
64390:d5c99d67c76d 64391:1818c2670a66
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))