[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Nethack-el-devel] Using directions with other keybindings
From: |
Shawn Betts |
Subject: |
Re: [Nethack-el-devel] Using directions with other keybindings |
Date: |
29 Aug 2003 13:20:14 -0700 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 |
Shawn Betts <address@hidden> writes:
> Mario Domgörgen <address@hidden> writes:
>
> > Hej list!
> >
> > I really like the idea of rebind the nethack-keybindings and so i
> > install nethack-el and all work great ... except keybindings... :)
> >
> > I use the following in my emacs:
> > ,----
> > | (add-hook 'nethack-map-mode-hook
> > | (lambda ()
> > | (define-key nh-map-mode-map (kbd "<left>") 'nethack-command-west)
> > | (define-key nh-map-mode-map (kbd "<up>") 'nethack-command-north)
> > | (define-key nh-map-mode-map (kbd "<down>") 'nethack-command-south)
> > | (define-key nh-map-mode-map (kbd "<right>") 'nethack-command-east)
> > | (define-key nh-map-mode-map (kbd "<home>")
> > 'nethack-command-northwest)
> > | (define-key nh-map-mode-map (kbd "<prior>")
> > 'nethack-command-northeast)
> > | (define-key nh-map-mode-map (kbd "<end>")
> > 'nethack-command-southwest)
> > | (define-key nh-map-mode-map (kbd "<next>")
> > 'nethack-command-southeast)
> > | ))
> > `----
> >
> > If i want to open a door wit o for example pressing <up> does result in
> > nothing, but k works great... ?!
> >
> > Hope it's only a little dumb error by myself! :)
>
> Hello Mario,
>
> Interesting. One of the reasons we started nethack-el is to be able to
> competently play nethack with a dvorak mapped happy hacking keyboard
> which doesn't have arrow keys. And so I've never ACTUALLY tested
> nethack-el with arrow key bindings :). It is clearly busted and I'm
> investigating a solution...
Hi Mario,
I've fixed it in CVS. Are you running CVS?
the fix is really simple:
===================================================================
RCS file: /cvsroot/nethack-el/nethack-el/nethack-api.el,v
retrieving revision 1.86
diff -r1.86 nethack-api.el
359,360c359
< (vector (nh-read-char
< (concat prompt " "))))))
---
> (read-key-sequence-vector (concat prompt " ")))))
Shawn