diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-12-02 13:03:49 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-12-02 13:09:32 +0100 |
commit | b7c43b85fa01896a4b500e8e4406cd1066d6bb92 (patch) | |
tree | 220dd38194f4a46c0c8f42b5d00cf3b95d8daf03 /lisp/play/dunnet.el | |
parent | 0c6318bc3b0fdd2edd149b3dadf1d57a5964c086 (diff) | |
download | emacs-b7c43b85fa01896a4b500e8e4406cd1066d6bb92.tar.gz |
* lisp/play/dunnet.el: Remove Emacs 18 compat code.
Diffstat (limited to 'lisp/play/dunnet.el')
-rw-r--r-- | lisp/play/dunnet.el | 13 |
1 files 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) |