# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825896600 0
# Node ID 345ee562c72a6e589ced648c6fa74a029001ba95
# Parent  80811280625e04c4577ce6d1585b2d5cee0d40c8
Require cl only when compiling.
(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.

diff -r 80811280625e -r 345ee562c72a lisp/play/dunnet.el
--- a/lisp/play/dunnet.el	Sun Mar 03 22:48:20 1996 +0000
+++ b/lisp/play/dunnet.el	Sun Mar 03 23:43:20 1996 +0000
@@ -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      ;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