[Nethack-el-devel] travel command

[Ryan Yeske]

Below is a patch to implement the "dotravel" command.

Warning: untested!

This will go into cvs once its been tested and once my ssh key is
updated on savannah again :)

Ryan


*** nethack-cmd.el.~1.26.~      Fri Sep 20 19:54:07 2002
--- nethack-cmd.el      Sat Feb  7 12:09:33 2004
***************
*** 274,279 ****
--- 274,284 ----
  (defun-nethack-command show-tool-in-use  ;(
    "Show the tools currently in use"
    "showtool")
+ 
+ ;; FIXME: test this
+ (defun-nethack-command travel ;_
+   "Travel"
+   "travel")
  
  (provide 'nethack-cmd)
  ;;; nethack-cmd.el ends here
*** nethack-keys.el.~1.21.~     Thu Apr  3 22:17:10 2003
--- nethack-keys.el     Sat Feb  7 12:10:31 2004
***************
*** 254,259 ****
--- 254,261 ----
      ;;^X      Show your attributes (intrinsic ones included in debug or 
explore mode)
      (define-key map "\M-\C-x" 'nethack-command-show-attributes)
  
+     ;;_       Travel ?? FIXME: whats exactly is the story with this command, 
its handled specially in cmd.c
+     (define-key map "_" 'nethack-command-travel)
  
      ;;; standard wizard commands
      ;;^E      Search a room (available in debug mode only)