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

substitute-key-definition.

diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index 34e88b739f2c884ac66b5fedcf9948c0a910f233..da144683b0a333c287df7b9dd5221944c1295c12 100644 (file)
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -1,6 +1,6 @@
 ;;; solitaire.el --- game of solitaire in Emacs Lisp
 
-;; Copyright (C) 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2003 Free Software Foundation, Inc.
 
 ;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de>
 ;; Created: Fri afternoon, Jun  3,  1994
@@ -55,8 +55,7 @@
   (define-key solitaire-mode-map "\C-p" 'solitaire-up)
   (define-key solitaire-mode-map "\C-n" 'solitaire-down)
   (define-key solitaire-mode-map [return] 'solitaire-move)
-  (substitute-key-definition 'undo 'solitaire-undo
-                            solitaire-mode-map global-map)
+  (define-key solitaire-mode-map [remap undo] 'solitaire-undo)
   (define-key solitaire-mode-map " " 'solitaire-do-check)
   (define-key solitaire-mode-map "q" 'quit-window)