mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(decipher-mode-map): Use command remapping instead of

Browse source 
substitute-key-definition.
This commit is contained in:
Andreas Schwab 2003-01-12 20:49:14 +00:00
parent 6b8236923e
commit 3ed7472c12
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/play/decipher.el
View file

@ -1,6 +1,6 @@
;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
;;
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc.
;;
;; Author: Christopher J. Madsen <chris_madsen@geocities.com>
;; Keywords: games
@ -170,10 +170,8 @@ in your `.emacs' file.")
(define-key decipher-mode-map "R" 'decipher-restore-checkpoint)
(define-key decipher-mode-map "U" 'decipher-undo)
(define-key decipher-mode-map " " 'decipher-keypress)
(substitute-key-definition 'undo 'decipher-undo
decipher-mode-map global-map)
(substitute-key-definition 'advertised-undo 'decipher-undo
decipher-mode-map global-map)
(define-key decipher-mode-map [remap undo] 'decipher-undo)
(define-key decipher-mode-map [remap advertised-undo] 'decipher-undo)
(let ((key ?a))
(while (<= key ?z)
(define-key decipher-mode-map (vector key) 'decipher-keypress)