diff options
| author | Richard M. Stallman | 1997-07-09 08:03:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-09 08:03:08 +0000 |
| commit | e9687ee8a2584a9ae3c0543500b179e446c08597 (patch) | |
| tree | b185fef1c8510e58238f924de0e81a5e8e2d6325 | |
| parent | c4ede6a24099d741088c99d16a3305b326f12b09 (diff) | |
| download | emacs-e9687ee8a2584a9ae3c0543500b179e446c08597.tar.gz emacs-e9687ee8a2584a9ae3c0543500b179e446c08597.zip | |
(Fdelete_frame): Always err for deleting the only frame.
| -rw-r--r-- | src/frame.c | 3 |
1 files changed, 3 insertions, 0 deletions
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.") | |||
| 1071 | if (NILP (force) && !other_visible_frames (f)) | 1071 | if (NILP (force) && !other_visible_frames (f)) |
| 1072 | error ("Attempt to delete the sole visible or iconified frame"); | 1072 | error ("Attempt to delete the sole visible or iconified frame"); |
| 1073 | 1073 | ||
| 1074 | if (NILP (XCONS (Vframe_list)->cdr)) | ||
| 1075 | error ("Attempt to delete the only frame"); | ||
| 1076 | |||
| 1074 | /* Does this frame have a minibuffer, and is it the surrogate | 1077 | /* Does this frame have a minibuffer, and is it the surrogate |
| 1075 | minibuffer for any other frame? */ | 1078 | minibuffer for any other frame? */ |
| 1076 | if (FRAME_HAS_MINIBUF_P (XFRAME (frame))) | 1079 | if (FRAME_HAS_MINIBUF_P (XFRAME (frame))) |