emacs-diffs
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]