[Emacs-diffs] master b6bf532: Remove XEmacs compat code from decipher.el

[Stefan Kangas]

branch: master
commit b6bf5327908d310fabf7012af6790c7abc2114f4
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>

    Remove XEmacs compat code from decipher.el
    
    * lisp/play/decipher.el (decipher-last-command-char)
    (decipher-keypress): Remove XEmacs compat code.
---
 lisp/play/decipher.el | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index cb0f075..52683af 100644
--- 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)))))