diff options
| -rw-r--r-- | lisp/play/decipher.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el index cb0f07579ab..52683afeb3c 100644 --- a/lisp/play/decipher.el +++ b/lisp/play/decipher.el | |||
| @@ -307,12 +307,6 @@ The most useful commands are: | |||
| 307 | ;; Normal key handling: | 307 | ;; Normal key handling: |
| 308 | ;;-------------------------------------------------------------------- | 308 | ;;-------------------------------------------------------------------- |
| 309 | 309 | ||
| 310 | (defmacro decipher-last-command-char () | ||
| 311 | ;; Return the char which ran this command (for compatibility with XEmacs) | ||
| 312 | (if (fboundp 'event-to-character) | ||
| 313 | '(event-to-character last-command-event) | ||
| 314 | 'last-command-event)) | ||
| 315 | |||
| 316 | (defun decipher-keypress () | 310 | (defun decipher-keypress () |
| 317 | "Enter a plaintext or ciphertext character." | 311 | "Enter a plaintext or ciphertext character." |
| 318 | (interactive) | 312 | (interactive) |
| @@ -338,7 +332,7 @@ The most useful commands are: | |||
| 338 | (let (goal-column) | 332 | (let (goal-column) |
| 339 | (forward-line -1))) | 333 | (forward-line -1))) |
| 340 | (let ((char-a (following-char)) | 334 | (let ((char-a (following-char)) |
| 341 | (char-b (decipher-last-command-char))) | 335 | (char-b last-command-event)) |
| 342 | (or (and (not (= ?w (char-syntax char-a))) | 336 | (or (and (not (= ?w (char-syntax char-a))) |
| 343 | (= char-b ?\s)) ;Spacebar just advances on non-letters | 337 | (= char-b ?\s)) ;Spacebar just advances on non-letters |
| 344 | (funcall decipher-function char-a char-b))))) | 338 | (funcall decipher-function char-a char-b))))) |