Menu

#4 fsf-friendly keybinding commands

open
nobody
None
5
2001-04-07
2001-04-07
No

This patch seems to work for both xemacs and fsf emacs
(emacs-20.7)

Great package, btw.

Alex.

/afs/athena.mit.edu/user/a/l/alex_c/src/tnt
athena$ cvs diff tnt.el
Index: tnt.el
===================================================================
RCS file: /cvsroot/tnt/tnt/tnt.el,v
retrieving revision 1.105
diff -r1.105 tnt.el
229,246d228
< (global-set-key "\C-xt?" 'tnt-show-help)
< (global-set-key "\C-xto" 'tnt-open)
< (global-set-key "\C-xtk" 'tnt-kill)
< (global-set-key "\C-xti" 'tnt-im)
< (global-set-key "\C-xtj" 'tnt-join-chat)
< (global-set-key "\C-xtl" 'tnt-leave-chat)
< (global-set-key "\C-xtb" 'tnt-show-buddies)
< (global-set-key "\C-xta" 'tnt-accept)
< (global-set-key "\C-xtr" 'tnt-reject)
< (global-set-key "\C-xtp" 'tnt-prev-event)
< (global-set-key "\C-xtn" 'tnt-next-event)
< (global-set-key "\C-xtB" 'tnt-edit-buddies)
< (global-set-key "\C-xts" 'tnt-switch-user)
< (global-set-key "\C-xtA" 'tnt-away-toggle)
< (global-set-key "\C-xtP" 'tnt-pounce-add)
< (global-set-key "\C-xtD" 'tnt-pounce-delete)
< (global-set-key "\C-xtM" 'tnt-toggle-email)
< )
247a230,250
> (define-prefix-command 'tnt-keymap)
> (define-key (current-global-map) "\C-xt"
'tnt-keymap)
>
> (define-key 'tnt-keymap "?" 'tnt-show-help)
> (define-key 'tnt-keymap "o" 'tnt-open)
> (define-key 'tnt-keymap "k" 'tnt-kill)
> (define-key 'tnt-keymap "i" 'tnt-im)
> (define-key 'tnt-keymap "j" 'tnt-join-chat)
> (define-key 'tnt-keymap "l" 'tnt-leave-chat)
> (define-key 'tnt-keymap "b" 'tnt-show-buddies)
> (define-key 'tnt-keymap "a" 'tnt-accept)
> (define-key 'tnt-keymap "r" 'tnt-reject)
> (define-key 'tnt-keymap "p" 'tnt-prev-event)
> (define-key 'tnt-keymap "n" 'tnt-next-event)
> (define-key 'tnt-keymap "B" 'tnt-edit-buddies)
> (define-key 'tnt-keymap "s" 'tnt-switch-user)
> (define-key 'tnt-keymap "A" 'tnt-away-toggle)
> (define-key 'tnt-keymap "P" 'tnt-pounce-add)
> (define-key 'tnt-keymap "D" 'tnt-pounce-delete)
> (define-key 'tnt-keymap "M" 'tnt-toggle-email)
> )

Discussion


Log in to post a comment.