← Back to branch summary

~ubuntu-branches/debian/sid/emacs24/sid

« back to all changes in this revision

Viewing changes to lisp/play/dunnet.el

  • Committer: Package Import Robot
  • Author(s): Rob Browning
  • Date: 2014-10-25 14:37:43 UTC
  • mfrom: (13.1.3 experimental)
  • Revision ID: package-import@ubuntu.com-20141025143743-m9q5reoyyyjq3p2h
Tags: 24.4+1-4
Update emacsen-common dependency as per policy.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/play/dunnet.el
1
 
;;; dunnet.el --- text adventure for Emacs -*-  byte-compile-warnings: nil -*-
 
1
;;; dunnet.el --- text adventure for Emacs
2
2
 
3
 
;; Copyright (C) 1992-1993, 2001-2013 Free Software Foundation, Inc.
 
3
;; Copyright (C) 1992-1993, 2001-2014 Free Software Foundation, Inc.
4
4
 
5
5
;; Author: Ron Schnell <ronnie@driver-aces.com>
6
6
;; Created: 25 Jul 1992
1386
1386
(setq dun-unix-verbs '((ls . dun-ls) (ftp . dun-ftp) (echo . dun-echo)
1387
1387
                       (exit . dun-uexit) (cd . dun-cd) (pwd . dun-pwd)
1388
1388
                       (rlogin . dun-rlogin) (uncompress . dun-uncompress)
1389
 
                       (cat . dun-cat) (zippy . dun-zippy)))
 
1389
                       (cat . dun-cat)))
1390
1390
 
1391
1391
(setq dun-dos-verbs '((dir . dun-dos-dir) (type . dun-dos-type)
1392
1392
                      (exit . dun-dos-exit) (command . dun-dos-spawn)
2996
2996
                (dun-mprincl "Ascii files only.")
2997
2997
              (dun-mprincl "File not found."))))))))
2998
2998
 
2999
 
(defun dun-zippy (args)
3000
 
  (dun-mprincl (yow)))
3001
 
 
3002
2999
(defun dun-rlogin-endgame ()
3003
3000
  (if (not (= (dun-score nil) 90))
3004
3001
      (dun-mprincl
3356
3353
(provide 'dunnet)
3357
3354
 
3358
3355
;;; dunnet.el ends here
 
3356
 
 
3357
;; Local Variables:
 
3358
;; byte-compile-warnings: (not free-vars lexical)
 
3359
;; End: