[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b7c43b8 4/5: * lisp/play/dunnet.el: Remove Emacs 18 compat code.
From: |
Stefan Kangas |
Subject: |
master b7c43b8 4/5: * lisp/play/dunnet.el: Remove Emacs 18 compat code. |
Date: |
Wed, 2 Dec 2020 07:12:11 -0500 (EST) |
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)