Commit bb0e1d19 authored by Richard M. Stallman's avatar Richard M. Stallman

(last_point_position_window): New variable.

(command_loop_1): Set last_point_position_window.
(syms_of_keyboard): Init it.
parent 066185fc
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment