mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

(dun-cd): Fix local var misspelling.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-04 23:13:09 +00:00
parent 4f9da2416a
commit 163d176768
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/play/dunnet.el
View File

@ -29,7 +29,7 @@
;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;;; The log file should be set for your system, and it must ;;; The log file should be set for your system, and it must
;;; be writeable by all. ;;; be writable by all.
(defvar dun-log-file "/usr/local/dunnet.score" (defvar dun-log-file "/usr/local/dunnet.score"
@ -790,7 +790,7 @@ huge rocks sliding down from the ceiling, and blocking your way out.\n")
(defun dun-sauna-heat () (defun dun-sauna-heat ()
(if (= dun-sauna-level 0) (if (= dun-sauna-level 0)
(dun-mprincl (dun-mprincl
"The termperature has returned to normal room termperature.")) "The temperature has returned to normal room temperature."))
(if (= dun-sauna-level 1) (if (= dun-sauna-level 1)
(dun-mprincl "It is now luke warm in here. You begin to sweat.")) (dun-mprincl "It is now luke warm in here. You begin to sweat."))
(if (= dun-sauna-level 2) (if (= dun-sauna-level 2)
@ -2587,7 +2587,7 @@ treasures for points?" "4" "four")
(dun-mprincl " (dun-mprincl "
Welcome to Unix\n Welcome to Unix\n
Please clean up your directories. The filesystem is getting full. Please clean up your directories. The filesystem is getting full.
Our tcp/ip link to gamma is a little flakey, but seems to work. Our tcp/ip link to gamma is a little flaky, but seems to work.
The current version of ftp can only send files from the current The current version of ftp can only send files from the current
directory, and deletes them after they are sent! Be careful. directory, and deletes them after they are sent! Be careful.
@ -2875,7 +2875,7 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..")
(dun-uexit nil)))))))) (dun-uexit nil))))))))
(defun dun-cd (args) (defun dun-cd (args)
(let (tcdpath tcdroom path-elemants room-check) (let (tcdpath tcdroom path-elements room-check)
(if (not (car args)) (if (not (car args))
(dun-mprincl "Usage: cd <path>") (dun-mprincl "Usage: cd <path>")
(setq tcdpath dun-cdpath) (setq tcdpath dun-cdpath)