diff options
| author | Gerd Moellmann | 2000-12-21 16:13:06 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-21 16:13:06 +0000 |
| commit | 338f62706fe67e345a47354f5a29520bada14e66 (patch) | |
| tree | 978c04ed38817cf8599a4eb1c9a09d1eec4a77fb | |
| parent | 177f4e888dc00efe11581ec377c82c8d37f40e02 (diff) | |
| download | emacs-338f62706fe67e345a47354f5a29520bada14e66.tar.gz emacs-338f62706fe67e345a47354f5a29520bada14e66.zip | |
(lm): Use interactive spec `P'.
(toplevel): Don't set debug-on-error.
| -rw-r--r-- | lisp/play/landmark.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index a560b026193..68fa876e4b1 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; landmark.el --- neural-network robot that learns landmarks | 1 | ;;; landmark.el --- neural-network robot that learns landmarks |
| 2 | 2 | ||
| 3 | ;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (c) 1996, 1997, 2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Terrence Brannon <brannon@rana.usc.edu> | 5 | ;; Author: Terrence Brannon <brannon@rana.usc.edu> |
| 6 | ;; Created: December 16, 1996 - first release to usenet | 6 | ;; Created: December 16, 1996 - first release to usenet |
| @@ -54,8 +54,6 @@ | |||
| 54 | ;;; a single move, one moves east,west and south, then both east and | 54 | ;;; a single move, one moves east,west and south, then both east and |
| 55 | ;;; west will be improved when they shouldn't | 55 | ;;; west will be improved when they shouldn't |
| 56 | 56 | ||
| 57 | ;;; For further references see | ||
| 58 | ;;; http://rana.usc.edu:8376/~brannon/warez/yours-truly/lm/ | ||
| 59 | ;;; Many thanks to Yuri Pryadkin (yuri@rana.usc.edu) for this | 57 | ;;; Many thanks to Yuri Pryadkin (yuri@rana.usc.edu) for this |
| 60 | ;;; concise problem description. | 58 | ;;; concise problem description. |
| 61 | 59 | ||
| @@ -1117,8 +1115,6 @@ this program to add a random element to the way moves were made.") | |||
| 1117 | 1115 | ||
| 1118 | ;;;_* Terry's mods to create lm.el | 1116 | ;;;_* Terry's mods to create lm.el |
| 1119 | 1117 | ||
| 1120 | ;;;_ + Debugging things | ||
| 1121 | (setq debug-on-error t) | ||
| 1122 | ;;;(setq lm-debug nil) | 1118 | ;;;(setq lm-debug nil) |
| 1123 | (defvar lm-debug nil | 1119 | (defvar lm-debug nil |
| 1124 | "If non-nil, debugging is printed.") | 1120 | "If non-nil, debugging is printed.") |
| @@ -1655,7 +1651,7 @@ none / 1 | yes | no | |||
| 1655 | You start by moving to a square and typing \\[lm-start-robot], | 1651 | You start by moving to a square and typing \\[lm-start-robot], |
| 1656 | if you did not use a prefix arg to ask for automatic start. | 1652 | if you did not use a prefix arg to ask for automatic start. |
| 1657 | Use \\[describe-mode] for more info." | 1653 | Use \\[describe-mode] for more info." |
| 1658 | (interactive "p") | 1654 | (interactive "P") |
| 1659 | 1655 | ||
| 1660 | (setf lm-n nil lm-m nil) | 1656 | (setf lm-n nil lm-m nil) |
| 1661 | (lm-switch-to-window) | 1657 | (lm-switch-to-window) |