Re: [Nethack-el-devel] Using directions with other keybindings

[Shawn Betts]

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