diff options
| author | Lars Ingebrigtsen | 2019-10-15 11:06:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-15 11:07:04 +0200 |
| commit | f33965798bc4e659c0888b66853f3df3faf4e70a (patch) | |
| tree | ed7e95540009ee5355293deb5825571399af504b | |
| parent | 2b347905feae0753c9e037082c7b5fdbc2b85fd0 (diff) | |
| download | emacs-f33965798bc4e659c0888b66853f3df3faf4e70a.tar.gz emacs-f33965798bc4e659c0888b66853f3df3faf4e70a.zip | |
Revert "Remove XEmacs-only code from snake.el"
This reverts commit 7174a2b59f4cb883beb70bb3d182d59ab425e2f1.
This should be ported to Emacs instead.
| -rw-r--r-- | lisp/play/snake.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/play/snake.el b/lisp/play/snake.el index 2769a621a46..d0f94579062 100644 --- a/lisp/play/snake.el +++ b/lisp/play/snake.el | |||
| @@ -368,6 +368,17 @@ Argument SNAKE-BUFFER is the name of the buffer." | |||
| 368 | 368 | ||
| 369 | (use-local-map snake-null-map) | 369 | (use-local-map snake-null-map) |
| 370 | 370 | ||
| 371 | (unless (featurep 'emacs) | ||
| 372 | (setq mode-popup-menu | ||
| 373 | '("Snake Commands" | ||
| 374 | ["Start new game" snake-start-game] | ||
| 375 | ["End game" snake-end-game | ||
| 376 | (snake-active-p)] | ||
| 377 | ["Pause" snake-pause-game | ||
| 378 | (and (snake-active-p) (not snake-paused))] | ||
| 379 | ["Resume" snake-pause-game | ||
| 380 | (and (snake-active-p) snake-paused)]))) | ||
| 381 | |||
| 371 | (setq gamegrid-use-glyphs snake-use-glyphs-flag) | 382 | (setq gamegrid-use-glyphs snake-use-glyphs-flag) |
| 372 | (setq gamegrid-use-color snake-use-color-flag) | 383 | (setq gamegrid-use-color snake-use-color-flag) |
| 373 | 384 | ||