# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1042404632 0
# Node ID 97abde229069793ed891b394f6b4640505ada510
# Parent  1181f774d9220d858b212d88aafbb8c398b563d7
(solitaire-mode-map): Use command remapping instead of
substitute-key-definition.

diff -r 1181f774d922 -r 97abde229069 lisp/play/solitaire.el
--- a/lisp/play/solitaire.el	Sun Jan 12 20:50:11 2003 +0000
+++ b/lisp/play/solitaire.el	Sun Jan 12 20:50:32 2003 +0000
@@ -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)