From 828ac693651e7d87c247d6e736ffddc88ebf0803 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 Apr 1995 02:53:19 +0000 Subject: [PATCH] (Fraise_frame, Flower_frame): Now interactive. --- src/frame.c | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/frame.c b/src/frame.c index 448e36b2974..31b9115352f 100644 --- a/src/frame.c +++ b/src/frame.c @@ -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) -- 2.39.5