]> code.delx.au - gnu-emacs/blobdiff - src/frame.c
(Fwhile): If mocklisp, test for nonzeroness.
[gnu-emacs] / src / frame.c
index 9a865c379d646f8c974b54fc14c90a356771df37..e706283a0b243d4bd7b05893b26f64fb4c6f4ef7 100644 (file)
@@ -791,7 +791,7 @@ WARNING:  If you use this under X, you should do `unfocus-frame' afterwards.")
 }
 \f
 DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible,
-       0, 1, 0,
+       0, 1, "",
   "Make the frame FRAME visible (assuming it is an X-window).\n\
 Also raises the frame so that nothing obscures it.\n\
 If omitted, FRAME defaults to the currently selected frame.")
@@ -980,7 +980,10 @@ The redirection lasts until `redirect-frame-focus' is called to change it.")
   (frame, focus_frame)
     Lisp_Object frame, focus_frame;
 {
-  CHECK_LIVE_FRAME (frame, 0);
+  /* Note that we don't check for a live frame here.  It's reasonable
+     to redirect the focus of a frame you're about to delete, if you
+     know what other frame should receive those keystrokes.  */
+  CHECK_FRAME (frame, 0);
 
   if (! NILP (focus_frame))
     CHECK_LIVE_FRAME (focus_frame, 1);