From 8c4d9806eca9e23b92d0d0586a10ceb6447c839a Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 12 Jan 2003 20:50:32 +0000 Subject: [PATCH] (solitaire-mode-map): Use command remapping instead of substitute-key-definition. --- lisp/play/solitaire.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) -- 2.39.2