From 7a20ef83194fcd3b440bb02446bcf8161cb4bff9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 27 May 2013 23:54:23 -0700 Subject: [PATCH] dunnet.el trivia * play/dunnet.el (byte-compile-warnings): Don't disable them all. (dun-unix-verbs): Remove dun-zippy. (dun-zippy): Remove function. --- lisp/ChangeLog | 4 ++++ lisp/play/dunnet.el | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da2c6a14afc..0e7b049ad9b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2013-05-28 Glenn Morris + * play/dunnet.el (byte-compile-warnings): Don't disable them all. + (dun-unix-verbs): Remove dun-zippy. + (dun-zippy): Remove function. + * emacs-lisp/bytecomp.el (byte-compile-warnings): Doc fix. 2013-05-27 Juri Linkov diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index db525fe531f..9d48d36bb30 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -1,4 +1,4 @@ -;;; dunnet.el --- text adventure for Emacs -*- byte-compile-warnings: nil -*- +;;; dunnet.el --- text adventure for Emacs ;; Copyright (C) 1992-1993, 2001-2013 Free Software Foundation, Inc. @@ -1386,7 +1386,7 @@ for a moment, then straighten yourself up. (setq dun-unix-verbs '((ls . dun-ls) (ftp . dun-ftp) (echo . dun-echo) (exit . dun-uexit) (cd . dun-cd) (pwd . dun-pwd) (rlogin . dun-rlogin) (uncompress . dun-uncompress) - (cat . dun-cat) (zippy . dun-zippy))) + (cat . dun-cat))) (setq dun-dos-verbs '((dir . dun-dos-dir) (type . dun-dos-type) (exit . dun-dos-exit) (command . dun-dos-spawn) @@ -2996,9 +2996,6 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..") (dun-mprincl "Ascii files only.") (dun-mprincl "File not found.")))))))) -(defun dun-zippy (args) - (dun-mprincl (yow))) - (defun dun-rlogin-endgame () (if (not (= (dun-score nil) 90)) (dun-mprincl @@ -3356,3 +3353,7 @@ File not found"))) (provide 'dunnet) ;;; dunnet.el ends here + +;; Local Variables: +;; byte-compile-warnings: (not free-vars lexical) +;; End: -- 2.11.4.GIT