comparison src/keyboard.c @ 43496:d42084cd7d73

(command_loop_1): Use Fremap_command for command remapping; now try command remapping for all symbols.
author Kim F. Storm <storm@cua.dk>
date Sat, 23 Feb 2002 22:02:18 +0000
parents 29dc2ac9c886
children f92c4d87863a bedac2738d2c
comparison
equal deleted inserted replaced
43495:3c0d7fbc071a 43496:d42084cd7d73
1504 reset it before we execute the command. */ 1504 reset it before we execute the command. */
1505 Vdeactivate_mark = Qnil; 1505 Vdeactivate_mark = Qnil;
1506 1506
1507 /* Remap command through active keymaps */ 1507 /* Remap command through active keymaps */
1508 Vthis_original_command = cmd; 1508 Vthis_original_command = cmd;
1509 if (is_command_symbol (cmd)) 1509 if (SYMBOLP (cmd))
1510 { 1510 {
1511 Lisp_Object cmd1; 1511 Lisp_Object cmd1;
1512 1512 if (cmd1 = Fremap_command (cmd), !NILP (cmd1))
1513 cmd1 = Fkey_binding (cmd, Qnil, Qt);
1514 if (!NILP (cmd1) && is_command_symbol (cmd1))
1515 cmd = cmd1; 1513 cmd = cmd1;
1516 } 1514 }
1517 1515
1518 /* Execute the command. */ 1516 /* Execute the command. */
1519 1517