diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-03 23:43:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-03 23:43:20 +0000 |
| commit | 3e2b8c1cf5adb08906687ab7e02ba8c790dfc2a1 (patch) | |
| tree | 98cd06cebaf6d45fe80b6d6d40ca2e745a504361 /lisp/play | |
| parent | dddff3979fae799c9985cf6b66aaabd2f5104ef6 (diff) | |
| download | emacs-3e2b8c1cf5adb08906687ab7e02ba8c790dfc2a1.tar.gz | |
Require cl only when compiling.
(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/dunnet.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 |