Mercurial > emacs
changeset 14743:345ee562c72a
Require cl only when compiling.
(scroll-step): Don't set it globally.
(dun-mode): Set scroll-step locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Mar 1996 23:43:20 +0000 |
| parents | 80811280625e |
| children | bbad6f06273a |
| files | lisp/play/dunnet.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/dunnet.el Sun Mar 03 22:48:20 1996 +0000 +++ b/lisp/play/dunnet.el Sun Mar 03 23:43:20 1996 +0000 @@ -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 ;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