diff options
| author | Gerd Moellmann | 2001-03-12 15:14:11 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-03-12 15:14:11 +0000 |
| commit | a7b772c166170e9443a83380272180a81785e6e7 (patch) | |
| tree | 475d63f4d73726233da2c7fa27a641eb2181b9de /src | |
| parent | 789b6186a36d2ed6b469f7fbf59a46b5d25f87ed (diff) | |
| download | emacs-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.c | 13 |
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 | ||
| 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 () |
| @@ -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; |