From 65877b9c169cad68fff19079d0a2602393ebcba3 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 12 Jan 2003 20:50:11 +0000 Subject: [PATCH] (lm-mode-map): Use command remapping instead of substitute-key-definition. --- lisp/play/landmark.el | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index 1b2701ea18c..b4779a4e8ab 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el @@ -1,6 +1,6 @@ ;;; landmark.el --- neural-network robot that learns landmarks -;; Copyright (c) 1996, 1997, 2000 Free Software Foundation, Inc. +;; Copyright (c) 1996, 1997, 2000, 2003 Free Software Foundation, Inc. ;; Author: Terrence Brannon (was: ) ;; Created: December 16, 1996 - first release to usenet @@ -200,18 +200,12 @@ (define-key lm-mode-map [mouse-2] 'lm-mouse-play) (define-key lm-mode-map [drag-mouse-2] 'lm-mouse-play) - (substitute-key-definition 'previous-line 'lm-move-up - lm-mode-map (current-global-map)) - (substitute-key-definition 'next-line 'lm-move-down - lm-mode-map (current-global-map)) - (substitute-key-definition 'beginning-of-line 'lm-beginning-of-line - lm-mode-map (current-global-map)) - (substitute-key-definition 'end-of-line 'lm-end-of-line - lm-mode-map (current-global-map)) - (substitute-key-definition 'undo 'lm-human-takes-back - lm-mode-map (current-global-map)) - (substitute-key-definition 'advertised-undo 'lm-human-takes-back - lm-mode-map (current-global-map))) + (define-key lm-mode-map [remap previous-line] 'lm-move-up) + (define-key lm-mode-map [remap next-line] 'lm-move-down) + (define-key lm-mode-map [remap beginning-of-line] 'lm-beginning-of-line) + (define-key lm-mode-map [remap end-of-line] 'lm-end-of-line) + (define-key lm-mode-map [remap undo] 'lm-human-takes-back) + (define-key lm-mode-map [remap advertised-undo] 'lm-human-takes-back)) (defvar lm-emacs-won () "*For making font-lock use the winner's face for the line.") -- 2.11.4.GIT