# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868435388 0
# Node ID 52271ad26a1d69f8b97f848166e0fbed924d5d44
# Parent  2185491b8d248142c76aca08bf1447ecda18bce9
(Fdelete_frame): Always err for deleting the only frame.

diff -r 2185491b8d24 -r 52271ad26a1d src/frame.c
--- a/src/frame.c	Wed Jul 09 06:56:04 1997 +0000
+++ b/src/frame.c	Wed Jul 09 08:03:08 1997 +0000
@@ -1071,6 +1071,9 @@
   if (NILP (force) && !other_visible_frames (f))
     error ("Attempt to delete the sole visible or iconified frame");
 
+  if (NILP (XCONS (Vframe_list)->cdr))
+    error ("Attempt to delete the only frame");
+
   /* Does this frame have a minibuffer, and is it the surrogate
      minibuffer for any other frame?  */
   if (FRAME_HAS_MINIBUF_P (XFRAME (frame)))