Require cl only when compiling.

(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 9da14e92e1eebff37d5eba3b6e1e278902001a88..2e6ee21b1c1b5476752bf34ff8b2f3f8c88242ca 100644 (file)
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -34,13 +34,14 @@
 ;;;  be writable by all.
 
 
-      (defvar dun-log-file "/usr/local/dunnet.score"
-       "Name of file to store score information for dunnet.")
+(defvar dun-log-file "/usr/local/dunnet.score"
+  "Name of file to store score information for dunnet.")
 
 (if nil
     (eval-and-compile (setq byte-compile-warnings nil)))
 
-(require 'cl)
+(eval-when-compile
+ (require 'cl))
 
 ;;;; Mode definitions for interactive mode
 
@@ -48,6 +49,8 @@
   "Major mode for running dunnet."
   (interactive)
   (text-mode)
+  (make-local-variable 'scroll-step)
+  (setq scroll-step 2)
   (use-local-map dungeon-mode-map)
   (setq major-mode 'dungeon-mode)
   (setq mode-name "Dungeon"))
@@ -2424,8 +2427,6 @@ nil
                  nil nil nil nil nil nil nil nil nil nil      ;31-40
                  nil (list obj-platinum) nil nil nil nil nil nil nil nil))
 
-(setq scroll-step 2)
-
 (setq dun-room-shorts nil)
 (dolist (x dun-rooms)
   (setq dun-room-shorts