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.
This commit is contained in:
Oleh Krehel 2016-02-22 14:43:23 +01:00
parent a4e351b097
commit 23d463d40c

View file

@ -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)))