procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/play/dunnet.el: Remove Emacs 18 compat code.

Browse source
This commit is contained in:
Stefan Kangas 2020-12-02 13:03:49 +01:00
parent 0c6318bc3b
commit b7c43b85fa
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/play/dunnet.el
View file

@ -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)