(Fdelete_frame): Always err for deleting the only frame.

diff --git a/src/frame.c b/src/frame.c
index 3e1e4d9e5f2154dd37ae1ff717287d6624d8d14e..46cd1fc69dc0d830202968d3842af62ebb4cf2d6 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -1071,6 +1071,9 @@ but if the second optional argument FORCE is non-nil, you may do so.")
   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)))