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 | 0d5bfe4fd7b1501f5293d9520744ac266445bcf2 (patch) | |
| tree | 47c4eeee6a9efdf2bd2c5a56d6feab87566d0316 | |
| parent | c5ff51a8b6c63acfc6c81fecf3bc48200f2d1572 (diff) | |
| download | emacs-0d5bfe4fd7b1501f5293d9520744ac266445bcf2.tar.gz | |
Require cl only when compiling.
(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.
| -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 |