From b7c43b85fa01896a4b500e8e4406cd1066d6bb92 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 2 Dec 2020 13:03:49 +0100 Subject: [PATCH] * 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 8a69f9decf0..eb3805d6690 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) -- 2.39.5