Mercurial > emacs
changeset 49172:0d696afaf14c
(decipher-mode-map): Use command remapping instead of
substitute-key-definition.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 12 Jan 2003 20:49:14 +0000 |
| parents | e0c2ecbf4fc5 |
| children | dfa1de5c19ef |
| files | lisp/play/decipher.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/decipher.el Sun Jan 12 20:48:49 2003 +0000 +++ b/lisp/play/decipher.el Sun Jan 12 20:49:14 2003 +0000 @@ -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 @@ (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)