[Emacs-diffs] Changes to emacs/lisp/play/decipher.el

[Miles Bader]

Index: emacs/lisp/play/decipher.el
diff -c emacs/lisp/play/decipher.el:1.16 emacs/lisp/play/decipher.el:1.17
*** emacs/lisp/play/decipher.el:1.16    Thu Dec 20 13:18:53 2001
--- emacs/lisp/play/decipher.el Sun Jan 12 15:49:14 2003
***************
*** 1,6 ****
  ;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
  ;;
! ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
  ;;
  ;; Author: Christopher J. Madsen <address@hidden>
  ;; Keywords: games
--- 1,6 ----
  ;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers
  ;;
! ;; Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc.
  ;;
  ;; Author: Christopher J. Madsen <address@hidden>
  ;; Keywords: games
***************
*** 170,179 ****
        (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)
        (let ((key ?a))
          (while (<= key ?z)
            (define-key decipher-mode-map (vector key) 'decipher-keypress)
--- 170,177 ----
        (define-key decipher-mode-map "R" 'decipher-restore-checkpoint)
        (define-key decipher-mode-map "U" 'decipher-undo)
        (define-key decipher-mode-map " " 'decipher-keypress)
!       (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)