Mercurial > emacs
comparison lisp/play/dunnet.el @ 36526:81afea9afa0e
(dun-mode): Set major-mode to `dun-mode'.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 05 Mar 2001 10:41:35 +0000 |
parents | f1fc193b6958 |
children | c6e12c6b1498 |
comparison
equal
deleted
inserted
replaced
36525:cb77fd8249b6 | 36526:81afea9afa0e |
---|---|
1 ;;; dunnet.el --- Text adventure for Emacs | 1 ;;; dunnet.el --- Text adventure for Emacs |
2 | 2 |
3 ;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1993, 2001 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Ron Schnell <ronnie@driver-aces.com> | 5 ;; Author: Ron Schnell <ronnie@driver-aces.com> |
6 ;; Created: 25 Jul 1992 | 6 ;; Created: 25 Jul 1992 |
7 ;; Version: 2.01 | 7 ;; Version: 2.01 |
8 ;; Keywords: games | 8 ;; Keywords: games |
56 (interactive) | 56 (interactive) |
57 (text-mode) | 57 (text-mode) |
58 (make-local-variable 'scroll-step) | 58 (make-local-variable 'scroll-step) |
59 (setq scroll-step 2) | 59 (setq scroll-step 2) |
60 (use-local-map dungeon-mode-map) | 60 (use-local-map dungeon-mode-map) |
61 (setq major-mode 'dungeon-mode) | 61 (setq major-mode 'dun-mode) |
62 (setq mode-name "Dungeon")) | 62 (setq mode-name "Dungeon")) |
63 | 63 |
64 (defun dun-parse (arg) | 64 (defun dun-parse (arg) |
65 "Function called when return is pressed in interactive mode to parse line." | 65 "Function called when return is pressed in interactive mode to parse line." |
66 (interactive "*p") | 66 (interactive "*p") |