[Emacs-diffs] Changes to emacs/lisp/play/dunnet.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/11/30 08:34:15

Index: dunnet.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/dunnet.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- dunnet.el   26 Jul 2007 05:27:22 -0000      1.29
+++ dunnet.el   30 Nov 2007 08:34:15 -0000      1.30
@@ -1,4 +1,4 @@
-;;; dunnet.el --- text adventure for Emacs
+;;; dunnet.el --- text adventure for Emacs -*-  byte-compile-warnings: nil -*-
 
 ;; Copyright (C) 1992, 1993, 2001, 2002, 2003, 2004,
 ;;   2005, 2006, 2007 Free Software Foundation, Inc.
@@ -46,12 +46,6 @@
   :type 'file
   :group 'dunnet)
 
-(if nil
-    (eval-and-compile (setq byte-compile-warnings nil)))
-
-(eval-when-compile
- (require 'cl))
-
 ;;;; Mode definitions for interactive mode
 
 (define-derived-mode dun-mode text-mode "Dungeon"
@@ -63,7 +57,8 @@
   "Function called when return is pressed in interactive mode to parse line."
   (interactive "*p")
   (beginning-of-line)
-  (setq beg (+ (point) 1))
+  (let ((beg (1+ (point)))
+        line)
   (end-of-line)
   (if (and (not (= beg (point))) (not (< (point) beg))
           (string= ">" (buffer-substring (- beg 1) beg)))
@@ -73,7 +68,7 @@
        (if (eq (dun-vparse dun-ignore dun-verblist line) -1)
            (dun-mprinc "I don't understand that.\n")))
     (goto-char (point-max))
-    (dun-mprinc "\n"))
+    (dun-mprinc "\n")))
     (dun-messages))
 
 (defun dun-messages ()