(Fraise_frame, Flower_frame): Now interactive.

1 files 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)