From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Dec 2005 16:31:36 +0000 (+0000)
Subject: (last_point_position_window): New variable.
X-Git-Tag: emacs-pretest-22.0.90~5063
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb0e1d19c7388910c113441dc131a85977e8b8ee;p=emacs.git

(last_point_position_window): New variable.
(command_loop_1): Set last_point_position_window.
(syms_of_keyboard): Init it.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 57646f1b0c2..aaeeeade541 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -381,12 +381,15 @@ Lisp_Object real_this_command;
    command is stored in this-original-command.  It is nil otherwise.  */
 Lisp_Object Vthis_original_command;
 
-/* The value of point when the last command was executed.  */
+/* The value of point when the last command was started.  */
 int last_point_position;
 
 /* The buffer that was current when the last command was started.  */
 Lisp_Object last_point_position_buffer;
 
+/* The window that was selected when the last command was started.  */
+Lisp_Object last_point_position_window;
+
 /* 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
    generate switch-frame events.  This may be cleared by functions
@@ -1581,6 +1584,7 @@ command_loop_1 ()
       prev_buffer = current_buffer;
       prev_modiff = MODIFF;
       last_point_position = PT;
+      last_point_position_window = selected_window;
       XSETBUFFER (last_point_position_buffer, prev_buffer);
 
       /* By default, we adjust point to a boundary of a region that
@@ -10985,6 +10989,7 @@ syms_of_keyboard ()
   Fset (Qinput_method_use_echo_area, Qnil);
 
   last_point_position_buffer = Qnil;
+  last_point_position_window = Qnil;
 
   {
     struct event_head *p;