# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 894901704 0
# Node ID 639be14b80ef06c7b603ac0de753eb3e76583923
# Parent  aca7f8a34a9e052fd8b1fb5453fb95f64dd57e13
On exiting, don't signal error when user changes mind.

diff -r aca7f8a34a9e -r 639be14b80ef lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Mon May 11 14:56:37 1998 +0000
+++ b/lisp/calendar/calendar.el	Mon May 11 15:48:24 1998 +0000
@@ -2096,11 +2096,10 @@
   "Get out of the calendar window and hide it and related buffers."
   (interactive)
   (let* ((diary-buffer (get-file-buffer diary-file)))
-    (if (and diary-buffer (buffer-modified-p diary-buffer)
-	     (not
-	      (yes-or-no-p
-	       "Diary modified; do you really want to exit the calendar? ")))
-	(beep)
+    (if (or (not diary-buffer)
+            (not (buffer-modified-p diary-buffer))
+            (yes-or-no-p
+             "Diary modified; do you really want to exit the calendar? "))
       ;; Need to do this multiple times because one time can replace some
       ;; calendar-related buffers with other calendar-related buffers
       (mapcar (lambda (x)