Commit 828ac693 authored by Richard M. Stallman's avatar Richard M. Stallman

(Fraise_frame, Flower_frame): Now interactive.

parent 0760ac9a
......@@ -1309,14 +1309,18 @@ DEFUN ("visible-frame-list", Fvisible_frame_list, Svisible_frame_list,
}
DEFUN ("raise-frame", Fraise_frame, Sraise_frame, 1, 1, 0,
DEFUN ("raise-frame", Fraise_frame, Sraise_frame, 1, 1, "",
"Bring FRAME to the front, so it occludes any frames it overlaps.\n\
If FRAME is invisible, make it visible.\n\
If you don't specify a frame, the selected frame is used.\n\
If Emacs is displaying on an ordinary terminal or some other device which\n\
doesn't support multiple overlapping frames, this function does nothing.")
(frame)
Lisp_Object frame;
{
if (NILP (frame))
XSETFRAME (frame, selected_frame);
CHECK_LIVE_FRAME (frame, 0);
/* Do like the documentation says. */
......@@ -1329,13 +1333,17 @@ doesn't support multiple overlapping frames, this function does nothing.")
}
/* Should we have a corresponding function called Flower_Power? */
DEFUN ("lower-frame", Flower_frame, Slower_frame, 1, 1, 0,
DEFUN ("lower-frame", Flower_frame, Slower_frame, 1, 1, "",
"Send FRAME to the back, so it is occluded by any frames that overlap it.\n\
If you don't specify a frame, the selected frame is used.\n\
If Emacs is displaying on an ordinary terminal or some other device which\n\
doesn't support multiple overlapping frames, this function does nothing.")
(frame)
Lisp_Object frame;
{
if (NILP (frame))
XSETFRAME (frame, selected_frame);
CHECK_LIVE_FRAME (frame, 0);
if (frame_raise_lower_hook)
......
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