Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 5689:7371081ce8f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
5688:b6c506c30f93 5689:7371081ce8f7
2124 } 2124 }
2125 } 2125 }
2126 2126
2127 return Qnil; 2127 return Qnil;
2128 } 2128 }
2129
2130 Lisp_Object
2131 command_remapping_for_event (Lisp_Object command, Lisp_Object event0)
2132 {
2133 /* This function can GC */
2134 Lisp_Object maps[100];
2135 int nmaps;
2136
2137 nmaps = get_relevant_keymaps (event0, Qnil, countof (maps), maps);
2138 if (nmaps > countof (maps))
2139 nmaps = countof (maps);
2140
2141 return command_remapping (command, nmaps, maps);
2142 }
2129 2143
2130 DEFUN ("command-remapping", Fcommand_remapping, 1, 3, 0, /* 2144 DEFUN ("command-remapping", Fcommand_remapping, 1, 3, 0, /*
2131 Return the remapping for command COMMAND. 2145 Return the remapping for command COMMAND.
2132 2146
2133 Return nil if COMMAND is not remapped (or not a symbol). The remapping is 2147 Return nil if COMMAND is not remapped (or not a symbol). The remapping is