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 |
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.") |