Mercurial > emacs

changeset 22028:639be14b80ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
On exiting, don't signal error when user changes mind.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Mon, 11 May 1998 15:48:24 +0000
parents aca7f8a34a9e
children 7620443f1878
files lisp/calendar/calendar.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)