comparison src/keyboard.c @ 36745:a12182d34820

(command_loop_1): Set Vdeactivate_mark to nil before running the command; timer functions or process filters may have set it.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 12 Mar 2001 15:14:11 +0000
parents 1ff754da1128
children 678f9b758e49
comparison
equal deleted inserted replaced
36744:fa8bc7dd83aa 36745:a12182d34820
1278 } 1278 }
1279 1279
1280 /* This is the actual command reading loop, 1280 /* This is the actual command reading loop,
1281 sans error-handling encapsulation. */ 1281 sans error-handling encapsulation. */
1282 1282
1283 Lisp_Object Fcommand_execute (); 1283 EXFUN (Fcommand_execute, 4);
1284 static int read_key_sequence (); 1284 static int read_key_sequence P_ ((Lisp_Object *, int, Lisp_Object,
1285 void safe_run_hooks (); 1285 int, int, int));
1286 static void adjust_point_for_property (); 1286 void safe_run_hooks P_ ((Lisp_Object));
1287 static void adjust_point_for_property P_ ((int));
1287 1288
1288 Lisp_Object 1289 Lisp_Object
1289 command_loop_1 () 1290 command_loop_1 ()
1290 { 1291 {
1291 Lisp_Object cmd; 1292 Lisp_Object cmd;
1475 /* By default, we adjust point to a boundary of a region that 1476 /* By default, we adjust point to a boundary of a region that
1476 has such a property that should be treated intangible 1477 has such a property that should be treated intangible
1477 (e.g. composition, display). But, some commands will set 1478 (e.g. composition, display). But, some commands will set
1478 this variable differently. */ 1479 this variable differently. */
1479 Vdisable_point_adjustment = Qnil; 1480 Vdisable_point_adjustment = Qnil;
1481
1482 /* Process filters and timers may have messed with deactivate-mark.
1483 reset it before we execute the command. */
1484 Vdeactivate_mark = Qnil;
1480 1485
1481 /* Execute the command. */ 1486 /* Execute the command. */
1482 1487
1483 Vthis_command = cmd; 1488 Vthis_command = cmd;
1484 real_this_command = cmd; 1489 real_this_command = cmd;