# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896070012 0
# Node ID 5d15aed3a37cc4e47edf08af89e99fb2cbfb3019
# Parent  8e667bbef6d67b0c83a87ffdc6d5333c6709928c
(Fdelete_windows_on): For FRAME, change t to nil
and nil to t, but don't change other values.

diff -r 8e667bbef6d6 -r 5d15aed3a37c src/window.c
--- a/src/window.c	Mon May 25 03:28:06 1998 +0000
+++ b/src/window.c	Mon May 25 04:20:12 1998 +0000
@@ -1642,17 +1642,20 @@
   1, 2, "bDelete windows on (buffer): ",
   "Delete all windows showing BUFFER.\n\
 Optional second argument FRAME controls which frames are affected.\n\
-If nil or omitted, delete all windows showing BUFFER in any frame.\n\
-If t, delete only windows showing BUFFER in the selected frame.\n\
-If `visible', delete all windows showing BUFFER in any visible frame.\n\
-If a frame, delete only windows showing BUFFER in that frame.")
+If optional argument FRAME is `visible', search all visible frames.\n\
+If FRAME is 0, search all visible and iconified frames.\n\
+If FRAME is nil, search all frames.\n\
+If FRAME is t, search only the selected frame.\n\
+If FRAME is a frame, search only that frame.")
   (buffer, frame)
      Lisp_Object buffer, frame;
 {
   /* FRAME uses t and nil to mean the opposite of what window_loop
      expects.  */
-  if (! FRAMEP (frame))
-    frame = NILP (frame) ? Qt : Qnil;
+  if (NILP (frame))
+    frame = Qt;
+  else if (EQ (frame, Qt))
+    frame = Qnil;
 
   if (!NILP (buffer))
     {