Commit 20dc6fbb authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(Fhandle_switch_frame, Fselect_frame): Delete unused arg no_enter.

(Fset_mouse_position, Fset_mouse_pixel_position, Ficonify_frame):
Adapt to above change.
parent 63e88db3
...@@ -729,7 +729,7 @@ do_switch_frame (frame, track, for_deletion) ...@@ -729,7 +729,7 @@ do_switch_frame (frame, track, for_deletion)
return frame; return frame;
} }
DEFUN ("select-frame", Fselect_frame, Sselect_frame, 1, 2, "e", DEFUN ("select-frame", Fselect_frame, Sselect_frame, 1, 1, "e",
doc: /* Select the frame FRAME. doc: /* Select the frame FRAME.
Subsequent editing commands apply to its selected window. Subsequent editing commands apply to its selected window.
The selection of FRAME lasts until the next time the user does The selection of FRAME lasts until the next time the user does
...@@ -740,14 +740,14 @@ the command loop, because it still may have the window system's input ...@@ -740,14 +740,14 @@ the command loop, because it still may have the window system's input
focus. On a text-only terminal, the next redisplay will display FRAME. focus. On a text-only terminal, the next redisplay will display FRAME.
This function returns FRAME, or nil if FRAME has been deleted. */) This function returns FRAME, or nil if FRAME has been deleted. */)
(frame, no_enter) (frame)
Lisp_Object frame, no_enter; Lisp_Object frame;
{ {
return do_switch_frame (frame, 1, 0); return do_switch_frame (frame, 1, 0);
} }
DEFUN ("handle-switch-frame", Fhandle_switch_frame, Shandle_switch_frame, 1, 2, "e", DEFUN ("handle-switch-frame", Fhandle_switch_frame, Shandle_switch_frame, 1, 1, "e",
doc: /* Handle a switch-frame event EVENT. doc: /* Handle a switch-frame event EVENT.
Switch-frame events are usually bound to this function. Switch-frame events are usually bound to this function.
A switch-frame event tells Emacs that the window manager has requested A switch-frame event tells Emacs that the window manager has requested
...@@ -756,8 +756,8 @@ This function selects the selected window of the frame of EVENT. ...@@ -756,8 +756,8 @@ This function selects the selected window of the frame of EVENT.
If EVENT is frame object, handle it as if it were a switch-frame event If EVENT is frame object, handle it as if it were a switch-frame event
to that frame. */) to that frame. */)
(event, no_enter) (event)
Lisp_Object event, no_enter; Lisp_Object event;
{ {
/* Preserve prefix arg that the command loop just cleared. */ /* Preserve prefix arg that the command loop just cleared. */
current_kboard->Vprefix_arg = Vcurrent_prefix_arg; current_kboard->Vprefix_arg = Vcurrent_prefix_arg;
...@@ -1530,7 +1530,7 @@ before calling this function on it, like this. ...@@ -1530,7 +1530,7 @@ before calling this function on it, like this.
#if defined (MSDOS) && defined (HAVE_MOUSE) #if defined (MSDOS) && defined (HAVE_MOUSE)
if (FRAME_MSDOS_P (XFRAME (frame))) if (FRAME_MSDOS_P (XFRAME (frame)))
{ {
Fselect_frame (frame, Qnil); Fselect_frame (frame);
mouse_moveto (XINT (x), XINT (y)); mouse_moveto (XINT (x), XINT (y));
} }
#endif #endif
...@@ -1562,7 +1562,7 @@ before calling this function on it, like this. ...@@ -1562,7 +1562,7 @@ before calling this function on it, like this.
#if defined (MSDOS) && defined (HAVE_MOUSE) #if defined (MSDOS) && defined (HAVE_MOUSE)
if (FRAME_MSDOS_P (XFRAME (frame))) if (FRAME_MSDOS_P (XFRAME (frame)))
{ {
Fselect_frame (frame, Qnil); Fselect_frame (frame);
mouse_moveto (XINT (x), XINT (y)); mouse_moveto (XINT (x), XINT (y));
} }
#endif #endif
...@@ -1684,7 +1684,7 @@ If omitted, FRAME defaults to the currently selected frame. */) ...@@ -1684,7 +1684,7 @@ If omitted, FRAME defaults to the currently selected frame. */)
#if 0 /* This isn't logically necessary, and it can do GC. */ #if 0 /* This isn't logically necessary, and it can do GC. */
/* Don't let the frame remain selected. */ /* Don't let the frame remain selected. */
if (EQ (frame, selected_frame)) if (EQ (frame, selected_frame))
Fhandle_switch_frame (next_frame (frame, Qt), Qnil); Fhandle_switch_frame (next_frame (frame, Qt));
#endif #endif
/* Don't allow minibuf_window to remain on a deleted frame. */ /* Don't allow minibuf_window to remain on a deleted frame. */
......
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