From bc6922de399fdccbbe69f2f2fc026c5a15a96b19 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 4 Nov 2008 23:52:15 +0000 Subject: [PATCH] (calc-quit): Make sure that the keypad buffer exists before delete its windows. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36a48b22c8a..13a84f6576c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-11-04 Jay Belanger + + * calc/calc.el (calc-quit): Make sure that the keypad buffer + exists before deleting its windows. + 2008-11-04 Chong Yidong * server.el (server-process-filter): Don't call diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index d49e2bd2aa3..4c6375b1183 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1431,7 +1431,7 @@ commands given here will actually operate on the *Calculator* stack." (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)))))) -- 2.39.2