Remove XEmacs compat code from decipher.el

* lisp/play/decipher.el (decipher-last-command-char)
(decipher-keypress): Remove XEmacs compat code.

diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index cb0f07579ab85476e521e1294572544c2e6f78dd..52683afeb3cce7cb24fe407fcf3cd97f4a3a557a 100644 (file)
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -307,12 +307,6 @@ The most useful commands are:
 ;; Normal key handling:
 ;;--------------------------------------------------------------------
 
-(defmacro decipher-last-command-char ()
-  ;; Return the char which ran this command (for compatibility with XEmacs)
-  (if (fboundp 'event-to-character)
-      '(event-to-character last-command-event)
-    'last-command-event))
-
 (defun decipher-keypress ()
   "Enter a plaintext or ciphertext character."
   (interactive)
@@ -338,7 +332,7 @@ The most useful commands are:
           (let (goal-column)
             (forward-line -1)))
       (let ((char-a (following-char))
-            (char-b (decipher-last-command-char)))
+            (char-b last-command-event))
         (or (and (not (= ?w (char-syntax char-a)))
                  (= char-b ?\s)) ;Spacebar just advances on non-letters
             (funcall decipher-function char-a char-b)))))