Commit 3e2b8c1c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Require cl only when compiling.

(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.
parent dddff397
...@@ -34,13 +34,14 @@ ...@@ -34,13 +34,14 @@
;;; be writable by all. ;;; be writable by all.
(defvar dun-log-file "/usr/local/dunnet.score" (defvar dun-log-file "/usr/local/dunnet.score"
"Name of file to store score information for dunnet.") "Name of file to store score information for dunnet.")
(if nil (if nil
(eval-and-compile (setq byte-compile-warnings nil))) (eval-and-compile (setq byte-compile-warnings nil)))
(require 'cl) (eval-when-compile
(require 'cl))
;;;; Mode definitions for interactive mode ;;;; Mode definitions for interactive mode
...@@ -48,6 +49,8 @@ ...@@ -48,6 +49,8 @@
"Major mode for running dunnet." "Major mode for running dunnet."
(interactive) (interactive)
(text-mode) (text-mode)
(make-local-variable 'scroll-step)
(setq scroll-step 2)
(use-local-map dungeon-mode-map) (use-local-map dungeon-mode-map)
(setq major-mode 'dungeon-mode) (setq major-mode 'dungeon-mode)
(setq mode-name "Dungeon")) (setq mode-name "Dungeon"))
...@@ -2424,8 +2427,6 @@ nil ...@@ -2424,8 +2427,6 @@ nil
nil nil nil nil nil nil nil nil nil nil ;31-40 nil nil nil nil nil nil nil nil nil nil ;31-40
nil (list obj-platinum) nil nil nil nil nil nil nil nil)) nil (list obj-platinum) nil nil nil nil nil nil nil nil))
(setq scroll-step 2)
(setq dun-room-shorts nil) (setq dun-room-shorts nil)
(dolist (x dun-rooms) (dolist (x dun-rooms)
(setq dun-room-shorts (setq dun-room-shorts
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment