# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1225842664 0
# Node ID d33ec2dc14a64a5234e17813bb865da44cc091ec
# Parent  0c8f4221f8398fdc7549e1dd352b4685908da3d6
(calc-quit): Make sure that the keypad buffer exists before delete its windows.

diff -r 0c8f4221f839 -r d33ec2dc14a6 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Tue Nov 04 18:42:04 2008 +0000
+++ b/lisp/calc/calc.el	Tue Nov 04 23:51:04 2008 +0000
@@ -1431,7 +1431,7 @@
             (setq calc-window-height (- (window-height win) 2)))
         (progn
           (delete-windows-on buf)
-          (delete-windows-on kbuf))
+          (and kbuf (delete-windows-on kbuf)))
         (bury-buffer buf)
         (bury-buffer calc-trail-buffer)
         (and kbuf (bury-buffer kbuf))))))