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.