From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Mar 1996 23:43:20 +0000 (+0000)
Subject: Require cl only when compiling.
X-Git-Tag: emacs-19.34~1117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e2b8c1cf5adb08906687ab7e02ba8c790dfc2a1;p=emacs.git

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 9da14e92e1e..2e6ee21b1c1 100644
--- 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