aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-12-21 16:13:06 +0000
committerGerd Moellmann2000-12-21 16:13:06 +0000
commit338f62706fe67e345a47354f5a29520bada14e66 (patch)
tree978c04ed38817cf8599a4eb1c9a09d1eec4a77fb
parent177f4e888dc00efe11581ec377c82c8d37f40e02 (diff)
downloademacs-338f62706fe67e345a47354f5a29520bada14e66.tar.gz
emacs-338f62706fe67e345a47354f5a29520bada14e66.zip
(lm): Use interactive spec `P'.
(toplevel): Don't set debug-on-error.
-rw-r--r--lisp/play/landmark.el8
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
1655You start by moving to a square and typing \\[lm-start-robot], 1651You start by moving to a square and typing \\[lm-start-robot],
1656if you did not use a prefix arg to ask for automatic start. 1652if you did not use a prefix arg to ask for automatic start.
1657Use \\[describe-mode] for more info." 1653Use \\[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)