[Emacs-diffs] Changes to emacs/lisp/play/landmark.el

[Miles Bader]

Index: emacs/lisp/play/landmark.el
diff -c emacs/lisp/play/landmark.el:1.18 emacs/lisp/play/landmark.el:1.19
*** emacs/lisp/play/landmark.el:1.18    Tue Nov 20 15:34:23 2001
--- emacs/lisp/play/landmark.el Sun Jan 12 15:50:11 2003
***************
*** 1,6 ****
  ;;; landmark.el --- neural-network robot that learns landmarks
  
! ;; Copyright (c) 1996, 1997, 2000 Free Software Foundation, Inc.
  
  ;; Author: Terrence Brannon (was: <address@hidden>)
  ;; Created: December 16, 1996 - first release to usenet
--- 1,6 ----
  ;;; landmark.el --- neural-network robot that learns landmarks
  
! ;; Copyright (c) 1996, 1997, 2000, 2003 Free Software Foundation, Inc.
  
  ;; Author: Terrence Brannon (was: <address@hidden>)
  ;; Created: December 16, 1996 - first release to usenet
***************
*** 200,217 ****
    (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)))
  
  (defvar lm-emacs-won ()
    "*For making font-lock use the winner's face for the line.")
--- 200,211 ----
    (define-key lm-mode-map [mouse-2] 'lm-mouse-play)
    (define-key lm-mode-map [drag-mouse-2] 'lm-mouse-play)
  
!   (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.")