mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

Remove XEmacs compat code from decipher.el

Browse Source 
* lisp/play/decipher.el (decipher-last-command-char)
(decipher-keypress): Remove XEmacs compat code.
This commit is contained in:
Stefan Kangas 2019-10-20 23:04:29 +02:00
parent 5cc1bd5ea1
commit b6bf532790
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/play/decipher.el
View File

@ -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)))))