# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760654278 0
# Node ID 238f508c5256a9dcad31ca36dd359c81627289da
# Parent  7a4647230b224c95f6b8204ec3fe2c8d2301bcd3
(view-diary-entries,diary-islamic-date): Use new error arg
to calendar-cursor-to-date.

diff -r 7a4647230b22 -r 238f508c5256 lisp/=diary-lib.el
--- a/lisp/=diary-lib.el	Mon Feb 07 20:49:35 1994 +0000
+++ b/lisp/=diary-lib.el	Mon Feb 07 20:51:18 1994 +0000
@@ -1,6 +1,6 @@
 ;;; diary.el --- diary functions.
 
-;; Copyright (C) 1989, 1990, 1992 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1990, 1992, 1993 Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;; Keywords: calendar
@@ -67,9 +67,7 @@
   (let ((d-file (substitute-in-file-name diary-file)))
     (if (and d-file (file-exists-p d-file))
         (if (file-readable-p d-file)
-            (list-diary-entries (or (calendar-cursor-to-date)
-                                    (error "Cursor is not on a date!"))
-                                arg)
+            (list-diary-entries (calendar-cursor-to-date t) arg)
           (error "Your diary file is not readable!"))
       (error "You don't have a diary file!"))))
 
@@ -1339,9 +1337,7 @@
 
 (defun diary-islamic-date ()
   "Islamic calendar equivalent of date diary entry."
-  (let ((i (calendar-islamic-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!")))))
+  (let ((i (calendar-islamic-date-string (calendar-cursor-to-date t))))
     (if (string-equal i "")
         "Date is pre-Islamic"
       (format "Islamic date (until sunset): %s" i))))