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 @@
;;; 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
......
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