From: Andreas Schwab Date: Sun, 12 Jan 2003 20:50:32 +0000 (+0000) Subject: (solitaire-mode-map): Use command remapping instead of X-Git-Tag: ttn-vms-21-2-B4~11718 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c4d9806eca9e23b92d0d0586a10ceb6447c839a;p=emacs.git (solitaire-mode-map): Use command remapping instead of substitute-key-definition. --- diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index 34e88b739f2..da144683b0a 100644 --- 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 ;; 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)