diff options
| -rw-r--r-- | lisp/play/pong.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/pong.el b/lisp/play/pong.el index 555c1939d26..13fe8b82a41 100644 --- a/lisp/play/pong.el +++ b/lisp/play/pong.el | |||
| @@ -262,7 +262,7 @@ | |||
| 262 | 262 | ||
| 263 | 263 | ||
| 264 | (defun pong-move-left () | 264 | (defun pong-move-left () |
| 265 | "Move bat 2 up. | 265 | "Move bat 1 up. |
| 266 | This is called left for historical reasons, since in some pong | 266 | This is called left for historical reasons, since in some pong |
| 267 | implementations you move with left/right paddle." | 267 | implementations you move with left/right paddle." |
| 268 | (interactive) | 268 | (interactive) |
| @@ -274,7 +274,7 @@ implementations you move with left/right paddle." | |||
| 274 | 274 | ||
| 275 | 275 | ||
| 276 | (defun pong-move-right () | 276 | (defun pong-move-right () |
| 277 | "Move bat 2 up." | 277 | "Move bat 1 down." |
| 278 | (interactive) | 278 | (interactive) |
| 279 | (if (< (+ pong-bat-player1 pong-bat-width) (1- pong-height)) | 279 | (if (< (+ pong-bat-player1 pong-bat-width) (1- pong-height)) |
| 280 | (and | 280 | (and |