# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762725292 0
# Node ID ad3864a4e0bc40956cbe6827f80f7b6633aea999
# Parent  ac2ef13dca1bbd8082fc778390119387fb7654ef
(command_loop_1): Set last_point_position to the value of point.

diff -r ac2ef13dca1b -r ad3864a4e0bc src/keyboard.c
--- a/src/keyboard.c	Thu Mar 03 19:24:54 1994 +0000
+++ b/src/keyboard.c	Thu Mar 03 20:08:12 1994 +0000
@@ -232,6 +232,9 @@
    instead of the actual command.  */
 Lisp_Object this_command;
 
+/* The value of point when the last command was executed.  */
+int last_point_position;
+
 #ifdef MULTI_FRAME
 /* The frame in which the last input event occurred, or Qmacro if the
    last event came from a macro.  We use this to determine when to
@@ -906,6 +909,7 @@
   no_redisplay = 0;
   this_command_key_count = 0;
   last_command = this_command;
+  last_point_position = PT;
 
   /* Make sure this hook runs after commands that get errors and
      throw to top level.  */