# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760654384 0
# Node ID 10ea561bcaa5e4da81532e90ba13afc562e84bf4
# Parent  238f508c5256a9dcad31ca36dd359c81627289da
(calendar-print-french-date,diary-french-date):
Use new error arg to calendar-cursor-to-date.

diff -r 238f508c5256 -r 10ea561bcaa5 lisp/calendar/cal-french.el
--- a/lisp/calendar/cal-french.el	Mon Feb 07 20:51:18 1994 +0000
+++ b/lisp/calendar/cal-french.el	Mon Feb 07 20:53:04 1994 +0000
@@ -1,6 +1,6 @@
 ;;; cal-french.el --- calendar functions for the French Revolutionary calendar.
 
-;; Copyright (C) 1988, 1989, 1992 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1989, 1992, 1994 Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;; Keywords: calendar
@@ -151,9 +151,7 @@
 (defun calendar-print-french-date ()
   "Show the French Revolutionary calendar equivalent of the selected date."
   (interactive)
-  (let ((f (calendar-french-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!")))))
+  (let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
     (if (string-equal f "")
         (message "Date is pre-French Revolution")
       (message f))))
@@ -213,9 +211,7 @@
 
 (defun diary-french-date ()
   "French calendar equivalent of date diary entry."
-  (let ((f (calendar-french-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!")))))
+  (let ((f (calendar-french-date-string (calendar-cursor-to-date t))))
     (if (string-equal f "")
         "Date is pre-French Revolution"
       f)))