Commit ae3050b3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdelete_window): Make `frame' a FRAME_PTR and use as such.

parent d8552b2f
......@@ -700,9 +700,9 @@ DEFUN ("delete-window", Fdelete_window, Sdelete_window, 0, 1, "",
/* Are we trying to delete any frame's selected window? */
{
Lisp_Object frame = WINDOW_FRAME (XWINDOW (window));
FRAME_PTR frame = WINDOW_FRAME (XWINDOW (window));
if (EQ (window, FRAME_SELECTED_WINDOW (XFRAME (frame))))
if (EQ (window, FRAME_SELECTED_WINDOW (frame)))
{
Lisp_Object alternative = Fnext_window (window, Qlambda, Qnil);
......@@ -714,7 +714,7 @@ DEFUN ("delete-window", Fdelete_window, Sdelete_window, 0, 1, "",
if (EQ (window, selected_window))
Fselect_window (alternative);
else
FRAME_SELECTED_WINDOW (XFRAME (frame)) = alternative;
FRAME_SELECTED_WINDOW (frame) = alternative;
}
}
......
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