Mercurial > emacs
changeset 11211:2f9a24a4c9eb
(Fraise_frame, Flower_frame): Now interactive.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Apr 1995 02:53:19 +0000 |
| parents | 48cbab79b9e7 |
| children | db8f78f3f9a9 |
| files | src/frame.c |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Thu Apr 06 02:12:11 1995 +0000 +++ b/src/frame.c Thu Apr 06 02:53:19 1995 +0000 @@ -1309,14 +1309,18 @@ } -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 @@ } /* 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)