Declare dun-line and dun-line-list

Previously, there were free variables 'line' and 'line-list'.
* lisp/play/dunnet.el (dun-line, dun-line-list): New variables.
(dun-press, dun-vparse, dun-parse2, dun-unix-parse, dun-batch-parse):
(dun-batch-parse2, dun-batch-loop, dun-batch-dos-interface):
(dun-batch-unix-interface): Use them.

1 files changed, 27 insertions, 24 deletions

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index f553c16d15b..1483d2c01a8 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -1135,6 +1135,9 @@ treasures for points?" "4" "four")
 
 (defconst dun-combination (prin1-to-string (+ 100 (random 899))))
 
+(defvar dun-line nil)
+(defvar dun-line-list nil)
+
 
 ;;;; Mode definitions for interactive mode
 
@@ -1924,7 +1927,7 @@ disk bursts into flames, and disintegrates.")
                (member objnum (nth dun-current-room dun-room-silents))))
       (dun-mprincl "I don't see that here."))
      ((not (member objnum (list obj-button obj-switch)))
-      (dun-mprincl "You can't " (car line-list) " that."))
+      (dun-mprincl "You can't " (car dun-line-list) " that."))
      ((= objnum obj-button)
       (dun-mprincl
 "As you press the button, you notice a passageway open up, but
@@ -2235,13 +2238,13 @@ for a moment, then straighten yourself up.
 
 (defun dun-vparse (ignore verblist line)
   (dun-mprinc "\n")
-  (setq line-list (dun-listify-string (concat line " ")))
-  (dun-doverb ignore verblist (car line-list) (cdr line-list)))
+  (setq dun-line-list (dun-listify-string (concat line " ")))
+  (dun-doverb ignore verblist (car dun-line-list) (cdr dun-line-list)))
 
 (defun dun-parse2 (ignore verblist line)
   (dun-mprinc "\n")
-  (setq line-list (dun-listify-string2 (concat line " ")))
-  (dun-doverb ignore verblist (car line-list) (cdr line-list)))
+  (setq dun-line-list (dun-listify-string2 (concat line " ")))
+  (dun-doverb ignore verblist (car dun-line-list) (cdr dun-line-list)))
 
 ;;; Read a line, in window mode
 
@@ -2397,13 +2400,13 @@ for a moment, then straighten yourself up.
     (if (and (not (= beg (point)))
              (string= "$" (buffer-substring (- beg 2) (- beg 1))))
         (progn
-          (setq line (downcase (buffer-substring beg (point))))
-          (princ line)
-          (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
+          (setq dun-line (downcase (buffer-substring beg (point))))
+          (princ dun-line)
+          (if (eq (dun-parse2 nil dun-unix-verbs dun-line) -1)
               (progn
-                (if (setq esign (string-match "=" line))
-                    (dun-doassign line esign)
-                  (dun-mprinc (car line-list))
+                (if (setq esign (string-match "=" dun-line))
+                    (dun-doassign dun-line esign)
+                  (dun-mprinc (car dun-line-list))
                   (dun-mprincl ": not found.")))))
       (goto-char (point-max))
       (dun-mprinc "\n"))
@@ -3111,12 +3114,12 @@ File not found")))
   (send-string-to-terminal "\n"))
 
 (defun dun-batch-parse (ignore verblist line)
-  (setq line-list (dun-listify-string (concat line " ")))
-  (dun-doverb ignore verblist (car line-list) (cdr line-list)))
+  (setq dun-line-list (dun-listify-string (concat line " ")))
+  (dun-doverb ignore verblist (car dun-line-list) (cdr dun-line-list)))
 
 (defun dun-batch-parse2 (ignore verblist line)
-  (setq line-list (dun-listify-string2 (concat line " ")))
-  (dun-doverb ignore verblist (car line-list) (cdr line-list)))
+  (setq dun-line-list (dun-listify-string2 (concat line " ")))
+  (dun-doverb ignore verblist (car dun-line-list) (cdr dun-line-list)))
 
 (defun dun-batch-read-line ()
   (read-from-minibuffer "" nil dungeon-batch-map))
@@ -3133,8 +3136,8 @@ File not found")))
                 (dun-describe-room dun-current-room)
                 (setq dun-room dun-current-room)))
           (dun-mprinc ">")
-          (setq line (downcase (dun-read-line)))
-          (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
+          (setq dun-line (downcase (dun-read-line)))
+          (if (eq (dun-vparse dun-ignore dun-verblist dun-line) -1)
               (dun-mprinc "I don't understand that.\n"))))))
 
 (defun dun-batch-dos-interface ()
@@ -3142,8 +3145,8 @@ File not found")))
   (setq dungeon-mode 'dos)
   (while (eq dungeon-mode 'dos)
     (dun-dos-prompt)
-    (setq line (downcase (dun-read-line)))
-    (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
+    (setq dun-line (downcase (dun-read-line)))
+    (if (eq (dun-parse2 nil dun-dos-verbs dun-line) -1)
         (progn
           (sleep-for 1)
           (dun-mprincl "Bad command or file name"))))
@@ -3157,12 +3160,12 @@ File not found")))
           (setq dungeon-mode 'unix)
           (while (eq dungeon-mode 'unix)
             (dun-mprinc "$ ")
-            (setq line (downcase (dun-read-line)))
-            (if (eq (dun-parse2 nil dun-unix-verbs line) -1)
+            (setq dun-line (downcase (dun-read-line)))
+            (if (eq (dun-parse2 nil dun-unix-verbs dun-line) -1)
                 (let (esign)
-                  (if (setq esign (string-match "=" line))
-                      (dun-doassign line esign)
-                    (dun-mprinc (car line-list))
+                  (if (setq esign (string-match "=" dun-line))
+                      (dun-doassign dun-line esign)
+                    (dun-mprinc (car dun-line-list))
                     (dun-mprincl ": not found.")))))
           (goto-char (point-max))
           (dun-mprinc "\n"))))