From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 9 Jul 1997 08:03:08 +0000 (+0000)
Subject: (Fdelete_frame): Always err for deleting the only frame.
X-Git-Tag: emacs-20.1~1248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9687ee8a2584a9ae3c0543500b179e446c08597;p=emacs.git

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

diff --git a/src/frame.c b/src/frame.c
index 3e1e4d9e5f2..46cd1fc69dc 100644
--- 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)))