aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorGerd Moellmann2001-03-12 15:14:11 +0000
committerGerd Moellmann2001-03-12 15:14:11 +0000
commita7b772c166170e9443a83380272180a81785e6e7 (patch)
tree475d63f4d73726233da2c7fa27a641eb2181b9de /src
parent789b6186a36d2ed6b469f7fbf59a46b5d25f87ed (diff)
downloademacs-a7b772c166170e9443a83380272180a81785e6e7.tar.gz
emacs-a7b772c166170e9443a83380272180a81785e6e7.zip
(command_loop_1): Set Vdeactivate_mark to nil
before running the command; timer functions or process filters may have set it.
Diffstat (limited to 'src')
-rw-r--r--src/keyboard.c13
1 files changed, 9 insertions, 4 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index d3b6cd23a42..a536af4aae4 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1280,10 +1280,11 @@ DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0,
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
1283Lisp_Object Fcommand_execute (); 1283EXFUN (Fcommand_execute, 4);
1284static int read_key_sequence (); 1284static int read_key_sequence P_ ((Lisp_Object *, int, Lisp_Object,
1285void safe_run_hooks (); 1285 int, int, int));
1286static void adjust_point_for_property (); 1286void safe_run_hooks P_ ((Lisp_Object));
1287static void adjust_point_for_property P_ ((int));
1287 1288
1288Lisp_Object 1289Lisp_Object
1289command_loop_1 () 1290command_loop_1 ()
@@ -1478,6 +1479,10 @@ command_loop_1 ()
1478 this variable differently. */ 1479 this variable differently. */
1479 Vdisable_point_adjustment = Qnil; 1480 Vdisable_point_adjustment = Qnil;
1480 1481
1482 /* Process filters and timers may have messed with deactivate-mark.
1483 reset it before we execute the command. */
1484 Vdeactivate_mark = Qnil;
1485
1481 /* Execute the command. */ 1486 /* Execute the command. */
1482 1487
1483 Vthis_command = cmd; 1488 Vthis_command = cmd;