From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 20 Oct 2019 21:04:29 +0000 (+0200)
Subject: Remove XEmacs compat code from decipher.el
X-Git-Tag: emacs-27.0.90~942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6bf5327908d310fabf7012af6790c7abc2114f4;p=emacs.git

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 cb0f07579ab..52683afeb3c 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)))))