diff options
| -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 |