diff options
| author | Andreas Schwab <schwab@suse.de> | 2003-01-12 20:49:41 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2003-01-12 20:49:41 +0000 |
| commit | 4cbb3189423d7cf59f9e2917b48728254e34be8c (patch) | |
| tree | 0add4871717b6d41f0dcb39b32520a86c21007b3 /lisp/play | |
| parent | 3ed7472c127a2a59aaaac4fe789cecbf6bc1f502 (diff) | |
| download | emacs-4cbb3189423d7cf59f9e2917b48728254e34be8c.tar.gz | |
(gomoku-mode-map): Use command remapping instead of
substitute-key-definition.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gomoku.el | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index d2333007fd6..a7f5476309c 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -1,6 +1,6 @@ ;;; gomoku.el --- Gomoku game between you and Emacs -;; Copyright (C) 1988, 1994, 1996, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 1996, 2001, 2003 Free Software Foundation, Inc. ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> ;; Maintainer: FSF @@ -147,18 +147,12 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." (define-key gomoku-mode-map [mouse-2] 'gomoku-mouse-play) (define-key gomoku-mode-map [drag-mouse-2] 'gomoku-mouse-play) - (substitute-key-definition 'previous-line 'gomoku-move-up - gomoku-mode-map (current-global-map)) - (substitute-key-definition 'next-line 'gomoku-move-down - gomoku-mode-map (current-global-map)) - (substitute-key-definition 'beginning-of-line 'gomoku-beginning-of-line - gomoku-mode-map (current-global-map)) - (substitute-key-definition 'end-of-line 'gomoku-end-of-line - gomoku-mode-map (current-global-map)) - (substitute-key-definition 'undo 'gomoku-human-takes-back - gomoku-mode-map (current-global-map)) - (substitute-key-definition 'advertised-undo 'gomoku-human-takes-back - gomoku-mode-map (current-global-map))) + (define-key gomoku-mode-map [remap previous-line] 'gomoku-move-up) + (define-key gomoku-mode-map [remap next-line] 'gomoku-move-down) + (define-key gomoku-mode-map [remap beginning-of-line] 'gomoku-beginning-of-line) + (define-key gomoku-mode-map [remap end-of-line] 'gomoku-end-of-line) + (define-key gomoku-mode-map [remap undo] 'gomoku-human-takes-back) + (define-key gomoku-mode-map [remap advertised-undo] 'gomoku-human-takes-back)) (defvar gomoku-emacs-won () "For making font-lock use the winner's face for the line.") |