Mercurial > hg > xemacs-beta
diff src/keymap.c @ 5689:7371081ce8f7
Have command remapping work interactively too, thank you Robert Pluim!
src/ChangeLog addition:
2012-10-14 Aidan Kehoe <kehoea@parhasard.net>
Have command remapping work interactively too, thank you Robert
Pluim.
* event-stream.c (Fdispatch_event):
Obey command remapping here, it wasn't done for us.
* keymap.c:
* keymap.c (command_remapping_for_event): New, needed to observe
command remapping interactively.
* lisp.h: Make it available.
lisp/ChangeLog addition:
2012-10-14 Aidan Kehoe <kehoea@parhasard.net>
* help.el:
* help.el (describe-function-1):
Add some newlines here when dealing with remapped commands, thank
you Robert Pluim.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 14 Oct 2012 22:10:39 +0100 |
parents | 4af5a3435c94 |
children | b490ddbd42aa |
line wrap: on
line diff
--- a/src/keymap.c Sun Oct 14 16:14:25 2012 +0100 +++ b/src/keymap.c Sun Oct 14 22:10:39 2012 +0100 @@ -2127,6 +2127,20 @@ return Qnil; } +Lisp_Object +command_remapping_for_event (Lisp_Object command, Lisp_Object event0) +{ + /* This function can GC */ + Lisp_Object maps[100]; + int nmaps; + + nmaps = get_relevant_keymaps (event0, Qnil, countof (maps), maps); + if (nmaps > countof (maps)) + nmaps = countof (maps); + + return command_remapping (command, nmaps, maps); +} + DEFUN ("command-remapping", Fcommand_remapping, 1, 3, 0, /* Return the remapping for command COMMAND.