[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/dunnet.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/dunnet.el |
Date: |
Fri, 10 Jun 2005 06:59:00 -0400 |
Index: emacs/lisp/play/dunnet.el
diff -c emacs/lisp/play/dunnet.el:1.21 emacs/lisp/play/dunnet.el:1.22
*** emacs/lisp/play/dunnet.el:1.21 Mon Sep 1 15:45:34 2003
--- emacs/lisp/play/dunnet.el Fri Jun 10 10:58:59 2005
***************
*** 53,67 ****
;;;; Mode definitions for interactive mode
! (defun dun-mode ()
"Major mode for running dunnet."
- (interactive)
- (text-mode)
(make-local-variable 'scroll-step)
! (setq scroll-step 2)
! (use-local-map dungeon-mode-map)
! (setq major-mode 'dun-mode)
! (setq mode-name "Dungeon"))
(defun dun-parse (arg)
"Function called when return is pressed in interactive mode to parse line."
--- 53,62 ----
;;;; Mode definitions for interactive mode
! (define-derived-mode dun-mode text-mode "Dungeon"
"Major mode for running dunnet."
(make-local-variable 'scroll-step)
! (setq scroll-step 2))
(defun dun-parse (arg)
"Function called when return is pressed in interactive mode to parse line."
***************
*** 1366,1374 ****
(setq dun-current-room 1)
(setq dun-exitf nil)
(setq dun-badcd nil)
! (defvar dungeon-mode-map nil)
! (setq dungeon-mode-map (make-sparse-keymap))
! (define-key dungeon-mode-map "\r" 'dun-parse)
(defvar dungeon-batch-map (make-keymap))
(if (string= (substring emacs-version 0 2) "18")
(let (n)
--- 1361,1368 ----
(setq dun-current-room 1)
(setq dun-exitf nil)
(setq dun-badcd nil)
! (define-obsolete-variable-alias 'dungeon-mode-map 'dun-mode-map "22.1")
! (define-key dun-mode-map "\r" 'dun-parse)
(defvar dungeon-batch-map (make-keymap))
(if (string= (substring emacs-version 0 2) "18")
(let (n)
***************
*** 2594,2600 ****
(if dun-logged-in
(progn
(setq dungeon-mode 'unix)
! (define-key dungeon-mode-map "\r" 'dun-unix-parse)
(dun-mprinc "$ "))))
(defun dun-login ()
--- 2588,2594 ----
(if dun-logged-in
(progn
(setq dungeon-mode 'unix)
! (define-key dun-mode-map "\r" 'dun-unix-parse)
(dun-mprinc "$ "))))
(defun dun-login ()
***************
*** 2860,2866 ****
(defun dun-uexit (args)
(setq dungeon-mode 'dungeon)
(dun-mprincl "\nYou step back from the console.")
! (define-key dungeon-mode-map "\r" 'dun-parse)
(if (not dun-batch-mode)
(dun-messages)))
--- 2854,2860 ----
(defun dun-uexit (args)
(setq dungeon-mode 'dungeon)
(dun-mprincl "\nYou step back from the console.")
! (define-key dun-mode-map "\r" 'dun-parse)
(if (not dun-batch-mode)
(dun-messages)))
***************
*** 3059,3065 ****
(defun dun-dos-interface ()
(dun-dos-boot-msg)
(setq dungeon-mode 'dos)
! (define-key dungeon-mode-map "\r" 'dun-dos-parse)
(dun-dos-prompt))
(defun dun-dos-type (args)
--- 3053,3059 ----
(defun dun-dos-interface ()
(dun-dos-boot-msg)
(setq dungeon-mode 'dos)
! (define-key dun-mode-map "\r" 'dun-dos-parse)
(dun-dos-prompt))
(defun dun-dos-type (args)
***************
*** 3117,3123 ****
(defun dun-dos-exit (args)
(setq dungeon-mode 'dungeon)
(dun-mprincl "\nYou power down the machine and step back.")
! (define-key dungeon-mode-map "\r" 'dun-parse)
(if (not dun-batch-mode)
(dun-messages)))
--- 3111,3117 ----
(defun dun-dos-exit (args)
(setq dungeon-mode 'dungeon)
(dun-mprincl "\nYou power down the machine and step back.")
! (define-key dun-mode-map "\r" 'dun-parse)
(if (not dun-batch-mode)
(dun-messages)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/dunnet.el,
Lute Kamstra <=