From 23d463d40cca1b68ef4f74a303b748e0649c506c Mon Sep 17 00:00:00 2001
From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Mon, 22 Feb 2016 14:43:23 +0100
Subject: [PATCH] lisp/calendar/appt.el (appt-delete-window): Check if buffer
is live
* lisp/calendar/appt.el (appt-delete-window): Avoid trying to delete a
non-existing buffer.
---
lisp/calendar/appt.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index fff63d3b15c..36ebd2d8812 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -482,7 +482,9 @@ Usually just deletes the appointment buffer."
(and window
(or (eq window (frame-root-window (window-frame window)))
(delete-window window))))
- (kill-buffer appt-buffer-name)
+ (let ((buffer (get-buffer appt-buffer-name)))
+ (when buffer
+ (kill-buffer buffer)))
(if appt-audible
(beep 1)))
--
2.39.5