Mercurial > emacs
changeset 49175:97abde229069
(solitaire-mode-map): Use command remapping instead of
substitute-key-definition.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 12 Jan 2003 20:50:32 +0000 |
| parents | 1181f774d922 |
| children | 56966d83f3a5 |
| files | lisp/play/solitaire.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)