master b7c43b8 4/5: * lisp/play/dunnet.el: Remove Emacs 18 compat code.

[Stefan Kangas]

branch: master
commit b7c43b85fa01896a4b500e8e4406cd1066d6bb92
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    * lisp/play/dunnet.el: Remove Emacs 18 compat code.
---
 lisp/play/dunnet.el | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 8a69f9d..eb3805d 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -2351,15 +2351,10 @@ for a moment, then straighten yourself up.\n")
 
 (define-key dun-mode-map "\r" 'dun-parse)
 (defvar dungeon-batch-map (make-keymap))
-(if (string= (substring emacs-version 0 2) "18")
-    (let (n)
-      (setq n 32)
-      (while (< 0 (setq n (- n 1)))
-       (aset dungeon-batch-map n 'dungeon-nil)))
-  (let (n)
-    (setq n 32)
-    (while (< 0 (setq n (- n 1)))
-      (aset (car (cdr dungeon-batch-map)) n 'dungeon-nil))))
+(let (n)
+  (setq n 32)
+  (while (< 0 (setq n (- n 1)))
+    (aset (car (cdr dungeon-batch-map)) n 'dungeon-nil)))
 (define-key dungeon-batch-map "\r" 'exit-minibuffer)
 (define-key dungeon-batch-map "\n" 'exit-minibuffer)