/[emacs]/emacs/lisp/play/landmark.el
ViewVC logotype

Diff of /emacs/lisp/play/landmark.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by eliz, Tue Nov 20 20:34:23 2001 UTC revision 1.18.4.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 1  Line 1 
1  ;;; landmark.el --- neural-network robot that learns landmarks  ;;; landmark.el --- neural-network robot that learns landmarks
2    
3  ;; Copyright (c) 1996, 1997, 2000 Free Software Foundation, Inc.  ;; Copyright (c) 1996, 1997, 2000, 2003 Free Software Foundation, Inc.
4    
5  ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>)  ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>)
6  ;; Created: December 16, 1996 - first release to usenet  ;; Created: December 16, 1996 - first release to usenet
# Line 200  Line 200 
200    (define-key lm-mode-map [mouse-2] 'lm-mouse-play)    (define-key lm-mode-map [mouse-2] 'lm-mouse-play)
201    (define-key lm-mode-map [drag-mouse-2] 'lm-mouse-play)    (define-key lm-mode-map [drag-mouse-2] 'lm-mouse-play)
202    
203    (substitute-key-definition 'previous-line 'lm-move-up    (define-key lm-mode-map [remap previous-line] 'lm-move-up)
204                               lm-mode-map (current-global-map))    (define-key lm-mode-map [remap next-line] 'lm-move-down)
205    (substitute-key-definition 'next-line 'lm-move-down    (define-key lm-mode-map [remap beginning-of-line] 'lm-beginning-of-line)
206                               lm-mode-map (current-global-map))    (define-key lm-mode-map [remap end-of-line] 'lm-end-of-line)
207    (substitute-key-definition 'beginning-of-line 'lm-beginning-of-line    (define-key lm-mode-map [remap undo] 'lm-human-takes-back)
208                               lm-mode-map (current-global-map))    (define-key lm-mode-map [remap advertised-undo] 'lm-human-takes-back))
   (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)))  
209    
210  (defvar lm-emacs-won ()  (defvar lm-emacs-won ()
211    "*For making font-lock use the winner's face for the line.")    "*For making font-lock use the winner's face for the line.")

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26