# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1114576516 0
# Node ID 6238d2f682a94808d90a8905c77e38a22b44d21e
# Parent  d341e1622abba90b7c626fd09a6b4847785d0986
(calc-edit-finish): Make sure there is more than one window before
deleting window.

diff -r d341e1622abb -r 6238d2f682a9 lisp/calc/calc-yank.el
--- a/lisp/calc/calc-yank.el	Wed Apr 27 00:37:59 2005 +0000
+++ b/lisp/calc/calc-yank.el	Wed Apr 27 04:35:16 2005 +0000
@@ -528,7 +528,7 @@
     (goto-char calc-edit-top)
     (if (buffer-modified-p)
 	(eval calc-edit-handler))
-    (if one-window
+    (if (and one-window (not (one-window-p t)))
 	(delete-window))
     (if (get-buffer-window return)
 	(select-window (get-buffer-window return))