diff options
| author | Andreas Schwab <schwab@suse.de> | 2003-01-12 20:50:32 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2003-01-12 20:50:32 +0000 |
| commit | 8c4d9806eca9e23b92d0d0586a10ceb6447c839a (patch) | |
| tree | 531b6c5846f6d5046423746e705be2d54516798d /lisp/play/solitaire.el | |
| parent | 65877b9c169cad68fff19079d0a2602393ebcba3 (diff) | |
(solitaire-mode-map): Use command remapping instead of
substitute-key-definition.
Diffstat (limited to 'lisp/play/solitaire.el')
| -rw-r--r-- | lisp/play/solitaire.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index 34e88b739f..da144683b0 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 <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) |