From ea5ccb55d380d2d6bd041b280ca8e99305c8dcd4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Feb 1994 20:53:04 +0000 Subject: [PATCH] (calendar-print-french-date,diary-french-date): Use new error arg to calendar-cursor-to-date. --- lisp/calendar/cal-french.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el index b2572e56f98..2a2537ebe10 100644 --- a/lisp/calendar/cal-french.el +++ b/lisp/calendar/cal-french.el @@ -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 ;; Keywords: calendar @@ -151,9 +151,7 @@ Defaults to today's date if DATE is not given." (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 @@ Echo French Revolutionary date unless NOECHO is t." (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))) -- 2.39.5